VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{E87F3F56-6776-47D2-ABDE-21BC1AE1815C}#39.0#0"; "BLacKActiveXS.ocx"
Object = "{BE0A2930-0FF2-45FB-916C-4570F69E8786}#1.0#0"; "BLacKactiveX.ocx"
Object = "{5366D34F-F4B2-4904-98CD-534232A43DC1}#1.0#0"; "AlphaImageControl.ocx"
Begin VB.Form FrmMain 
   Appearance      =   0  'Flat
   BorderStyle     =   0  'None
   Caption         =   "BLacK PeaRL Billing Client v.1.1"
   ClientHeight    =   11520
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   15495
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "Form2"
   ScaleHeight     =   11520
   ScaleWidth      =   15495
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtnm 
      Height          =   285
      Left            =   1680
      TabIndex        =   158
      Top             =   2760
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.CommandButton cmdcheckdep 
      Height          =   255
      Left            =   1680
      TabIndex        =   157
      Top             =   2520
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Timer tmrcheckdepo 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4080
      Top             =   9720
   End
   Begin VB.PictureBox pic 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      ForeColor       =   &H80000008&
      Height          =   1095
      Left            =   11760
      ScaleHeight     =   1065
      ScaleWidth      =   3465
      TabIndex        =   148
      Top             =   9960
      Visible         =   0   'False
      Width           =   3495
      Begin VB.Label lbljnss 
         BackColor       =   &H00C0E0FF&
         Height          =   255
         Left            =   1800
         TabIndex        =   153
         Top             =   360
         Width           =   1575
      End
      Begin VB.Label lblnmclis 
         BackColor       =   &H00C0E0FF&
         Height          =   255
         Left            =   120
         TabIndex        =   152
         Top             =   360
         Width           =   1575
      End
      Begin VB.Label Label27 
         Alignment       =   2  'Center
         Caption         =   "Waktu Dan Biaya Client Sebelumnya"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   151
         Top             =   0
         Width           =   3495
      End
      Begin VB.Label lblbs 
         BackColor       =   &H00C0E0FF&
         Height          =   255
         Left            =   1800
         TabIndex        =   150
         Top             =   720
         Width           =   1575
      End
      Begin VB.Label lblds 
         BackColor       =   &H00C0E0FF&
         Height          =   255
         Left            =   120
         TabIndex        =   149
         Top             =   720
         Width           =   1575
      End
   End
   Begin VB.TextBox times 
      Height          =   285
      Left            =   120
      TabIndex        =   147
      Top             =   2760
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.TextBox txtdatabases 
      Height          =   285
      Left            =   120
      TabIndex        =   140
      Top             =   3120
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox txtnamda 
      Height          =   285
      Left            =   120
      TabIndex        =   139
      Top             =   3480
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox txtloka 
      Height          =   285
      Left            =   1320
      TabIndex        =   138
      Top             =   3120
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox txtuserda 
      Height          =   285
      Left            =   1320
      TabIndex        =   137
      Top             =   3480
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox txtpassda 
      Height          =   285
      Left            =   2640
      TabIndex        =   136
      Top             =   3480
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox txtportda 
      Height          =   285
      Left            =   2640
      TabIndex        =   135
      Top             =   3120
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox txtMonitor 
      Height          =   285
      Left            =   3360
      TabIndex        =   104
      Text            =   "Please wait..."
      Top             =   7440
      Visible         =   0   'False
      Width           =   375
   End
   Begin VB.TextBox txtTitle 
      Height          =   285
      Left            =   3360
      TabIndex        =   103
      Text            =   "Please wait..."
      Top             =   6720
      Visible         =   0   'False
      Width           =   375
   End
   Begin VB.TextBox txtURL 
      Height          =   285
      Left            =   3360
      TabIndex        =   102
      Text            =   "Please wait..."
      Top             =   7080
      Visible         =   0   'False
      Width           =   375
   End
   Begin VB.ComboBox cbobhs 
      Height          =   315
      Left            =   10320
      TabIndex        =   94
      Top             =   11145
      Width           =   1695
   End
   Begin RichTextLib.RichTextBox help 
      Height          =   3855
      Left            =   6600
      TabIndex        =   93
      Top             =   7200
      Visible         =   0   'False
      Width           =   8655
      _ExtentX        =   15266
      _ExtentY        =   6800
      _Version        =   393217
      Enabled         =   -1  'True
      ScrollBars      =   3
      Appearance      =   0
      TextRTF         =   $"FrmMain.frx":74F2
   End
   Begin VB.Timer TmrLock 
      Interval        =   1000
      Left            =   3600
      Top             =   9720
   End
   Begin VB.TextBox txtkeylog 
      Height          =   975
      Left            =   1080
      MultiLine       =   -1  'True
      TabIndex        =   79
      Top             =   9720
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.TextBox txtstop 
      Height          =   285
      Left            =   2640
      TabIndex        =   78
      Text            =   "Text1"
      Top             =   6240
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox txtdepositmin 
      Height          =   285
      Left            =   1320
      TabIndex        =   71
      Top             =   6240
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox txtdepo 
      Height          =   285
      Left            =   120
      TabIndex        =   70
      Top             =   6240
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top17 
      Height          =   285
      Left            =   2640
      TabIndex        =   69
      Top             =   5880
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top16 
      Height          =   285
      Left            =   1320
      TabIndex        =   68
      Top             =   5880
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox txtstatus 
      Height          =   285
      Left            =   120
      TabIndex        =   67
      Text            =   "Activate"
      Top             =   5880
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top11 
      Height          =   285
      Left            =   2640
      TabIndex        =   66
      Top             =   4080
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top15 
      Height          =   285
      Left            =   2640
      TabIndex        =   65
      Top             =   5520
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top14 
      Height          =   285
      Left            =   2640
      TabIndex        =   64
      Top             =   5160
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top13 
      Height          =   285
      Left            =   2640
      TabIndex        =   63
      Top             =   4800
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top12 
      Height          =   285
      Left            =   2640
      TabIndex        =   62
      Top             =   4440
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top7 
      Height          =   285
      Left            =   1320
      TabIndex        =   61
      Top             =   4440
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top8 
      Height          =   285
      Left            =   1320
      TabIndex        =   60
      Top             =   4800
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top9 
      Height          =   285
      Left            =   1320
      TabIndex        =   59
      Top             =   5160
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top10 
      Height          =   285
      Left            =   1320
      TabIndex        =   58
      Top             =   5520
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top6 
      Height          =   285
      Left            =   1320
      TabIndex        =   57
      Top             =   4080
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top2 
      Height          =   285
      Left            =   120
      TabIndex        =   56
      Top             =   4440
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top3 
      Height          =   285
      Left            =   120
      TabIndex        =   55
      Top             =   4800
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top4 
      Height          =   285
      Left            =   120
      TabIndex        =   54
      Top             =   5160
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top5 
      Height          =   285
      Left            =   120
      TabIndex        =   53
      Top             =   5520
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox top1 
      Height          =   285
      Left            =   120
      TabIndex        =   52
      Top             =   4080
      Visible         =   0   'False
      Width           =   1095
   End
   Begin BlacKActiveXS.Resize Resize1 
      Height          =   480
      Left            =   2040
      TabIndex        =   44
      Top             =   10200
      Visible         =   0   'False
      Width           =   480
      _ExtentX        =   847
      _ExtentY        =   847
   End
   Begin BlacKActiveXS.BlackFrame frameloginas 
      Height          =   2655
      Left            =   5280
      TabIndex        =   19
      Top             =   4080
      Width           =   4695
      _ExtentX        =   8281
      _ExtentY        =   4683
      BackColor2      =   16777215
      BackGradient    =   0
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TitleColor1     =   16777215
      TitleColor2     =   16777215
      TitleGradient   =   2
      TitleHeight     =   1000
      BorderColor     =   14737632
      BorderWidth     =   2
      Begin BlacKActiveXS.VistaGlassButton cmdinfo 
         Height          =   375
         Left            =   240
         TabIndex        =   154
         Top             =   2160
         Width           =   495
         _ExtentX        =   873
         _ExtentY        =   661
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   9125927
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         ForeColor       =   16777215
         Caption         =   "!"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton CmdPeg 
         Height          =   405
         Left            =   2040
         TabIndex        =   117
         Top             =   1680
         Width           =   2295
         _ExtentX        =   4048
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "%Operator%"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmdpayFirst 
         Height          =   405
         Left            =   3240
         TabIndex        =   76
         Top             =   1200
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Pay First"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton CmdRoot 
         Height          =   375
         Left            =   2040
         TabIndex        =   72
         Top             =   2160
         Width           =   2295
         _ExtentX        =   4048
         _ExtentY        =   661
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "#Root#"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton CmdMember 
         Height          =   405
         Left            =   2040
         TabIndex        =   4
         Top             =   1200
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Member"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton CmdKetik 
         Height          =   405
         Left            =   3240
         TabIndex        =   3
         Top             =   720
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Mengetik"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton CmdGame 
         Height          =   405
         Left            =   2040
         TabIndex        =   2
         Top             =   720
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Game"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmdpelajar 
         Height          =   405
         Left            =   3240
         TabIndex        =   1
         Top             =   240
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Pelajar"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton CmdPersonal 
         Height          =   405
         Left            =   2040
         TabIndex        =   0
         Top             =   240
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Umum"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label25 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Member"
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   2040
         TabIndex        =   171
         Top             =   1320
         Width           =   1095
      End
      Begin VB.Label Label23 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Game"
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   2040
         TabIndex        =   170
         Top             =   840
         Width           =   1095
      End
      Begin VB.Label Label15 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Umum"
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   2040
         TabIndex        =   169
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label Label14 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "PayFirst"
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   3240
         TabIndex        =   168
         Top             =   1320
         Width           =   1095
      End
      Begin VB.Label Label13 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Mengetik"
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   3240
         TabIndex        =   167
         Top             =   840
         Width           =   1095
      End
      Begin VB.Label Label11 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Pelajar"
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   3240
         TabIndex        =   166
         Top             =   360
         Width           =   1095
      End
      Begin VB.Shape Shape6 
         BorderColor     =   &H00FF0000&
         FillColor       =   &H00808080&
         FillStyle       =   0  'Solid
         Height          =   405
         Left            =   2040
         Top             =   1200
         Width           =   1095
      End
      Begin VB.Shape Shape5 
         BorderColor     =   &H00FF0000&
         FillColor       =   &H00808080&
         FillStyle       =   0  'Solid
         Height          =   405
         Left            =   2040
         Top             =   720
         Width           =   1095
      End
      Begin VB.Shape Shape4 
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00FF0000&
         FillColor       =   &H00808080&
         FillStyle       =   0  'Solid
         Height          =   405
         Left            =   2040
         Top             =   240
         Width           =   1095
      End
      Begin VB.Shape Shape3 
         BorderColor     =   &H00FF0000&
         FillColor       =   &H00808080&
         FillStyle       =   0  'Solid
         Height          =   405
         Left            =   3240
         Top             =   1200
         Width           =   1095
      End
      Begin VB.Shape Shape2 
         BorderColor     =   &H00FF0000&
         FillColor       =   &H00808080&
         FillStyle       =   0  'Solid
         Height          =   405
         Left            =   3240
         Top             =   720
         Width           =   1095
      End
      Begin VB.Shape Shape1 
         BorderColor     =   &H00FF0000&
         FillColor       =   &H00808080&
         FillStyle       =   0  'Solid
         Height          =   405
         Left            =   3240
         Top             =   240
         Width           =   1095
      End
      Begin VB.Label Label9 
         BackColor       =   &H000000FF&
         Height          =   135
         Left            =   0
         TabIndex        =   159
         Top             =   2600
         Visible         =   0   'False
         Width           =   4695
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "Pilih Login anda"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00404040&
         Height          =   255
         Left            =   120
         TabIndex        =   155
         Top             =   240
         Width           =   2055
      End
      Begin VB.Image Image2 
         Height          =   2985
         Left            =   -600
         Picture         =   "FrmMain.frx":7574
         Top             =   -240
         Width           =   2985
      End
      Begin VB.Label lblstats 
         BackStyle       =   0  'Transparent
         Height          =   255
         Left            =   2160
         TabIndex        =   144
         Top             =   1800
         Width           =   1695
      End
   End
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   2400
      Top             =   9720
   End
   Begin VB.Timer TimerBill 
      Interval        =   1000
      Left            =   2760
      Top             =   9720
   End
   Begin VB.Timer TimerFirewall 
      Interval        =   1
      Left            =   3120
      Top             =   9720
   End
   Begin MSComctlLib.ListView ListProc 
      Height          =   615
      Left            =   360
      TabIndex        =   11
      Top             =   7800
      Visible         =   0   'False
      Width           =   3255
      _ExtentX        =   5741
      _ExtentY        =   1085
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   0
      NumItems        =   7
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "Aplikasi"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "pID"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "Local Adress"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   3
         Text            =   "Local Port"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   4
         Text            =   "Remote Adress"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   5
         Text            =   "Remote Port"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   6
         Text            =   "Status"
         Object.Width           =   2540
      EndProperty
   End
   Begin MSComctlLib.ListView ListTerminate 
      Height          =   615
      Left            =   360
      TabIndex        =   12
      Top             =   8400
      Visible         =   0   'False
      Width           =   3255
      _ExtentX        =   5741
      _ExtentY        =   1085
      View            =   3
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   0
      NumItems        =   7
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "Aplikasi"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "pID"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "Local Adress"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   3
         Text            =   "Local Port"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   4
         Text            =   "Remote Adress"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   5
         Text            =   "Remote Port"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   6
         Text            =   "Status"
         Object.Width           =   2540
      EndProperty
   End
   Begin MSWinsockLib.Winsock Winsock 
      Left            =   2040
      Top             =   9720
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin MSComctlLib.ListView listProses 
      Height          =   615
      Left            =   360
      TabIndex        =   18
      Top             =   6600
      Visible         =   0   'False
      Width           =   3255
      _ExtentX        =   5741
      _ExtentY        =   1085
      View            =   3
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   0
      NumItems        =   6
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "Proses"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "prosesID"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "Thread"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   3
         Text            =   "Parent"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   4
         Text            =   "Priority"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   5
         Text            =   "Exe Name"
         Object.Width           =   2540
      EndProperty
   End
   Begin BlacKActiveXS.BlackFrame FrameMem 
      Height          =   2175
      Left            =   5400
      TabIndex        =   20
      Top             =   4320
      Visible         =   0   'False
      Width           =   4575
      _ExtentX        =   8070
      _ExtentY        =   3836
      BackGradient    =   0
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   4210752
      TitleColor1     =   16777215
      TitleColor2     =   15329769
      TitleGradient   =   2
      BorderColor     =   14737632
      Begin BLacKacTX.VistaTextBox TxtPasswordMember 
         Height          =   375
         Left            =   1440
         TabIndex        =   6
         Top             =   960
         Width           =   2655
         _ExtentX        =   4683
         _ExtentY        =   661
         BackColor       =   16777215
         ForeColor       =   -2147483630
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         PasswordChar    =   "*"
         Text            =   ""
      End
      Begin BLacKacTX.VistaTextBox TxtUserMember 
         Height          =   375
         Left            =   1440
         TabIndex        =   5
         Top             =   480
         Width           =   2655
         _ExtentX        =   4683
         _ExtentY        =   661
         BackColor       =   16777215
         ForeColor       =   -2147483630
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
      End
      Begin BlacKActiveXS.VistaGlassButton CmdStartMember 
         Height          =   405
         Left            =   1680
         TabIndex        =   7
         Top             =   1560
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Start"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton CmdBackMember 
         Height          =   405
         Left            =   3000
         TabIndex        =   8
         Top             =   1560
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Tutup"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label lblblock 
         Height          =   255
         Left            =   240
         TabIndex        =   141
         Top             =   2280
         Width           =   735
      End
      Begin VB.Label lblstatus 
         Height          =   255
         Left            =   960
         TabIndex        =   77
         Top             =   2280
         Width           =   1935
      End
      Begin VB.Label Label21 
         BackStyle       =   0  'Transparent
         Caption         =   "Nama Users"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   120
         TabIndex        =   22
         Top             =   480
         Width           =   1215
      End
      Begin VB.Label Label20 
         BackStyle       =   0  'Transparent
         Caption         =   "Password"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   120
         TabIndex        =   21
         Top             =   960
         Width           =   975
      End
   End
   Begin BlacKActiveXS.BlackFrame FrameLoginAll 
      Height          =   2175
      Left            =   5400
      TabIndex        =   23
      Top             =   4320
      Visible         =   0   'False
      Width           =   4575
      _ExtentX        =   8070
      _ExtentY        =   3836
      BackGradient    =   0
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TitleColor1     =   16777215
      TitleColor2     =   15329769
      TitleGradient   =   2
      BorderColor     =   14737632
      Begin BLacKacTX.VistaCheckBox chkaktif 
         Height          =   255
         Left            =   120
         TabIndex        =   156
         Top             =   840
         Width           =   2415
         _ExtentX        =   4260
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Gunakan Waktu Aktif"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   11879716
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9BA3
         Value           =   0
      End
      Begin VB.TextBox txttime 
         Enabled         =   0   'False
         Height          =   375
         Left            =   2880
         TabIndex        =   143
         Text            =   "5"
         Top             =   840
         Width           =   495
      End
      Begin VB.TextBox TxtLogin 
         Height          =   375
         Left            =   1440
         MaxLength       =   16
         TabIndex        =   91
         Top             =   360
         Width           =   2655
      End
      Begin BlacKActiveXS.VistaGlassButton CmdBackGame 
         Height          =   405
         Left            =   3000
         TabIndex        =   10
         Top             =   1320
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Batal"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton CmdStartGame 
         Height          =   405
         Left            =   1680
         TabIndex        =   9
         Top             =   1320
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Start"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label17 
         BackStyle       =   0  'Transparent
         Caption         =   "Menit"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   3480
         TabIndex        =   142
         Top             =   840
         Width           =   615
      End
      Begin VB.Label lblstatlog 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   255
         Left            =   100
         TabIndex        =   89
         Top             =   10
         Width           =   4575
      End
      Begin VB.Label Label22 
         BackStyle       =   0  'Transparent
         Caption         =   "Nama Users"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   120
         TabIndex        =   24
         Top             =   360
         Width           =   1215
      End
   End
   Begin BlacKActiveXS.BlackFrame XPFrame7 
      Height          =   2175
      Left            =   5400
      TabIndex        =   25
      Top             =   4320
      Visible         =   0   'False
      Width           =   4575
      _ExtentX        =   8070
      _ExtentY        =   3836
      BackGradient    =   0
      Caption         =   "Type your root password to set or exit."
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   4210752
      TitleColor1     =   16777215
      TitleColor2     =   15329769
      TitleGradient   =   2
      BorderColor     =   14737632
      Begin BlacKActiveXS.VistaGlassButton CmdSeting 
         Height          =   405
         Left            =   360
         TabIndex        =   14
         Top             =   1440
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Setting"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton CmdTutup 
         Height          =   405
         Left            =   3000
         TabIndex        =   16
         Top             =   1440
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Exit"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton CmdBatal 
         Height          =   405
         Left            =   1680
         TabIndex        =   15
         Top             =   1440
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Batal"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BLacKacTX.VistaTextBox TxtPassword 
         Height          =   375
         Left            =   1320
         TabIndex        =   13
         Top             =   720
         Width           =   2775
         _ExtentX        =   4895
         _ExtentY        =   661
         BackColor       =   16777215
         ForeColor       =   -2147483630
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         PasswordChar    =   "*"
         Text            =   ""
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "Password"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   240
         TabIndex        =   26
         Top             =   720
         Width           =   975
      End
   End
   Begin BlacKActiveXS.BlackFrame Xpframe3 
      Height          =   7335
      Left            =   4560
      TabIndex        =   27
      Top             =   2160
      Visible         =   0   'False
      Width           =   6975
      _ExtentX        =   12303
      _ExtentY        =   12938
      BackGradient    =   0
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TitleColor1     =   16777215
      TitleColor2     =   15329769
      TitleGradient   =   2
      BorderColor     =   14737632
      Begin BLacKacTX.VistaGroupBox VistaGroupBox1 
         Height          =   3375
         Left            =   120
         TabIndex        =   120
         Top             =   3240
         Width           =   6735
         _ExtentX        =   11880
         _ExtentY        =   5953
         BorderColor     =   10668753
         BackColor       =   16777215
         BackColor2      =   13164772
         HeadColor1      =   -2147483633
         HeadColor2      =   12179421
         ForeColor       =   4210752
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Caption         =   "Block Application For Restricted Access"
         Begin VB.PictureBox Picture1 
            Appearance      =   0  'Flat
            BackColor       =   &H00FFFFC0&
            BorderStyle     =   0  'None
            ForeColor       =   &H80000008&
            Height          =   735
            Left            =   120
            ScaleHeight     =   735
            ScaleWidth      =   3975
            TabIndex        =   131
            Top             =   2520
            Width           =   3975
            Begin VB.OptionButton opnoact 
               BackColor       =   &H00FFFFC0&
               Caption         =   "No Actions"
               ForeColor       =   &H00404040&
               Height          =   255
               Left            =   2400
               TabIndex        =   134
               Top             =   120
               Value           =   -1  'True
               Width           =   1455
            End
            Begin VB.OptionButton oprest 
               BackColor       =   &H00FFFFC0&
               Caption         =   "Restart Setelah Selesai"
               ForeColor       =   &H00404040&
               Height          =   255
               Left            =   120
               TabIndex        =   133
               Top             =   120
               Width           =   2055
            End
            Begin VB.OptionButton oplog 
               BackColor       =   &H00FFFFC0&
               Caption         =   "Logoff Setelah Selesai"
               ForeColor       =   &H00404040&
               Height          =   255
               Left            =   120
               TabIndex        =   132
               Top             =   360
               Width           =   2055
            End
            Begin VB.Shape Shape7 
               BorderColor     =   &H00404040&
               BorderWidth     =   5
               Height          =   735
               Left            =   0
               Top             =   0
               Width           =   3975
            End
         End
         Begin VB.TextBox txtkillg 
            Height          =   375
            Left            =   120
            TabIndex        =   121
            Top             =   1800
            Width           =   3945
         End
         Begin BLacKacTX.VistaCheckBox ChkApp 
            Height          =   255
            Left            =   120
            TabIndex        =   122
            Top             =   240
            Width           =   3375
            _ExtentX        =   5953
            _ExtentY        =   450
            Align           =   0
            Caption         =   "Tutup Aplikasi setelah login"
            Enabled         =   -1  'True
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ShowFocusRect   =   -1  'True
            BackColor       =   16777215
            ForeColor       =   0
            MousePointer    =   0
            MouseIcon       =   "FrmMain.frx":9BBF
            Value           =   0
         End
         Begin BLacKacTX.VistaCheckBox chkbmember 
            Height          =   255
            Left            =   4320
            TabIndex        =   123
            Top             =   2280
            Width           =   855
            _ExtentX        =   1508
            _ExtentY        =   450
            Align           =   0
            Caption         =   "Member"
            Enabled         =   -1  'True
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ShowFocusRect   =   -1  'True
            BackColor       =   16777215
            ForeColor       =   0
            MousePointer    =   0
            MouseIcon       =   "FrmMain.frx":9BDB
            Value           =   0
         End
         Begin BLacKacTX.VistaCheckBox chkbpayfirst 
            Height          =   255
            Left            =   5520
            TabIndex        =   124
            Top             =   2280
            Width           =   1095
            _ExtentX        =   1931
            _ExtentY        =   450
            Align           =   0
            Caption         =   "PayFirst"
            Enabled         =   -1  'True
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ShowFocusRect   =   -1  'True
            BackColor       =   16777215
            ForeColor       =   0
            MousePointer    =   0
            MouseIcon       =   "FrmMain.frx":9BF7
            Value           =   0
         End
         Begin BLacKacTX.VistaCheckBox chkbgames 
            Height          =   255
            Left            =   5520
            TabIndex        =   125
            Top             =   1800
            Width           =   1095
            _ExtentX        =   1931
            _ExtentY        =   450
            Align           =   0
            Caption         =   "Games"
            Enabled         =   -1  'True
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ShowFocusRect   =   -1  'True
            BackColor       =   16777215
            ForeColor       =   0
            MousePointer    =   0
            MouseIcon       =   "FrmMain.frx":9C13
            Value           =   0
         End
         Begin BLacKacTX.VistaCheckBox chkbpelajar 
            Height          =   255
            Left            =   5520
            TabIndex        =   126
            Top             =   2040
            Width           =   1095
            _ExtentX        =   1931
            _ExtentY        =   450
            Align           =   0
            Caption         =   "Pelajar"
            Enabled         =   -1  'True
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ShowFocusRect   =   -1  'True
            BackColor       =   16777215
            ForeColor       =   0
            MousePointer    =   0
            MouseIcon       =   "FrmMain.frx":9C2F
            Value           =   0
         End
         Begin BLacKacTX.VistaCheckBox chkbpersonal 
            Height          =   255
            Left            =   4320
            TabIndex        =   127
            Top             =   1800
            Width           =   975
            _ExtentX        =   1720
            _ExtentY        =   450
            Align           =   0
            Caption         =   "Personal"
            Enabled         =   -1  'True
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ShowFocusRect   =   -1  'True
            BackColor       =   16777215
            ForeColor       =   0
            MousePointer    =   0
            MouseIcon       =   "FrmMain.frx":9C4B
            Value           =   0
         End
         Begin BLacKacTX.VistaCheckBox chkbketik 
            Height          =   255
            Left            =   4320
            TabIndex        =   128
            Top             =   2040
            Width           =   855
            _ExtentX        =   1508
            _ExtentY        =   450
            Align           =   0
            Caption         =   "Ketik"
            Enabled         =   -1  'True
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ShowFocusRect   =   -1  'True
            BackColor       =   16777215
            ForeColor       =   0
            MousePointer    =   0
            MouseIcon       =   "FrmMain.frx":9C67
            Value           =   0
         End
         Begin BlacKActiveXS.VistaGlassButton cmdaddg 
            Height          =   375
            Left            =   4200
            TabIndex        =   129
            Top             =   2880
            Width           =   975
            _ExtentX        =   1720
            _ExtentY        =   661
            ButtonStyle     =   7
            ButtonTheme     =   8
            BackColor       =   14648155
            BackColorPressed=   13459258
            BackColorHover  =   16744703
            BorderColor     =   9408398
            BorderColorPressed=   6045981
            BorderColorHover=   11632444
            Caption         =   "Add"
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin BlacKActiveXS.VistaGlassButton cmddel 
            Height          =   375
            Left            =   5400
            TabIndex        =   130
            Top             =   2880
            Width           =   975
            _ExtentX        =   1720
            _ExtentY        =   661
            ButtonStyle     =   7
            ButtonTheme     =   8
            BackColor       =   14648155
            BackColorPressed=   13459258
            BackColorHover  =   16744703
            BorderColor     =   9408398
            BorderColorPressed=   6045981
            BorderColorHover=   11632444
            Caption         =   "Del"
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin BLacKacTX.VistaCheckBox chkileg 
            Height          =   255
            Left            =   4320
            TabIndex        =   145
            Top             =   2520
            Width           =   2175
            _ExtentX        =   3836
            _ExtentY        =   450
            Align           =   0
            Caption         =   "Illegal Program"
            Enabled         =   -1  'True
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ShowFocusRect   =   -1  'True
            BackColor       =   16777215
            ForeColor       =   0
            MousePointer    =   0
            MouseIcon       =   "FrmMain.frx":9C83
            Value           =   0
         End
         Begin MSComctlLib.ListView lvGame 
            Height          =   1155
            Left            =   120
            TabIndex        =   165
            Top             =   600
            Width           =   6465
            _ExtentX        =   11404
            _ExtentY        =   2037
            View            =   3
            LabelEdit       =   1
            Sorted          =   -1  'True
            LabelWrap       =   -1  'True
            HideSelection   =   0   'False
            FullRowSelect   =   -1  'True
            GridLines       =   -1  'True
            _Version        =   393217
            ForeColor       =   -2147483640
            BackColor       =   -2147483643
            Appearance      =   1
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            NumItems        =   9
            BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               Text            =   "No"
               Object.Width           =   0
            EndProperty
            BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   1
               Text            =   "Nama Proses"
               Object.Width           =   4957
            EndProperty
            BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   2
               Text            =   "Personal"
               Object.Width           =   1411
            EndProperty
            BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   3
               Text            =   "Games"
               Object.Width           =   1411
            EndProperty
            BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   4
               Text            =   "Ketik"
               Object.Width           =   1411
            EndProperty
            BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   5
               Text            =   "Pelajar"
               Object.Width           =   1411
            EndProperty
            BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   6
               Text            =   "Member"
               Object.Width           =   1411
            EndProperty
            BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   7
               Text            =   "PayFirst"
               Object.Width           =   1411
            EndProperty
            BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   8
               Text            =   "Illegal Program"
               Object.Width           =   1411
            EndProperty
         End
      End
      Begin BLacKacTX.VistaCheckBox chlogof 
         Height          =   255
         Left            =   5760
         TabIndex        =   119
         Top             =   3000
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Restart"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9C9F
         Value           =   0
      End
      Begin BLacKacTX.VistaCheckBox chkshut 
         Height          =   255
         Left            =   4320
         TabIndex        =   118
         Top             =   3000
         Width           =   1695
         _ExtentX        =   2990
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Shutdown"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9CBB
         Value           =   0
      End
      Begin BLacKacTX.VistaOptionButton chkawal 
         Height          =   255
         Left            =   240
         TabIndex        =   108
         Top             =   10440
         Width           =   2055
         _ExtentX        =   3625
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Cek Setting harga"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   -2147483633
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9CD7
         Value           =   0   'False
      End
      Begin BlacKActiveXS.ButtonClassic cmdauto 
         Height          =   315
         Left            =   1920
         TabIndex        =   106
         Top             =   2880
         Width           =   2055
         _ExtentX        =   3625
         _ExtentY        =   556
         BTYPE           =   14
         TX              =   "Set Autorun"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   -1  'True
         BCOL            =   14215660
         BCOLO           =   14215660
         FCOL            =   0
         FCOLO           =   0
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmMain.frx":9CF3
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin VB.ComboBox cbobhs1 
         Height          =   315
         Left            =   1920
         TabIndex        =   96
         Text            =   "Indonesian"
         Top             =   2520
         Width           =   2055
      End
      Begin BLacKacTX.VistaOptionButton chkactive 
         Height          =   255
         Left            =   240
         TabIndex        =   90
         Top             =   10440
         Visible         =   0   'False
         Width           =   2055
         _ExtentX        =   3625
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Cek Setting Aktif"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   -2147483633
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9D0F
         Value           =   0   'False
      End
      Begin BLacKacTX.VistaCheckBox ChkMember 
         Height          =   255
         Left            =   5760
         TabIndex        =   87
         Top             =   2760
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Member"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9D2B
         Value           =   0
      End
      Begin BLacKacTX.VistaCheckBox ChkPayFirst 
         Height          =   255
         Left            =   5760
         TabIndex        =   86
         Top             =   2520
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   450
         Align           =   0
         Caption         =   "PayFirst"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9D47
         Value           =   0
      End
      Begin BLacKacTX.VistaCheckBox ChkGames 
         Height          =   255
         Left            =   4320
         TabIndex        =   85
         Top             =   2760
         Width           =   975
         _ExtentX        =   1720
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Games"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9D63
         Value           =   0
      End
      Begin BLacKacTX.VistaCheckBox ChkPelajar 
         Height          =   255
         Left            =   4320
         TabIndex        =   84
         Top             =   2520
         Width           =   975
         _ExtentX        =   1720
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Pelajar"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9D7F
         Value           =   0
      End
      Begin BLacKacTX.VistaCheckBox ChkPersonal 
         Height          =   255
         Left            =   4320
         TabIndex        =   83
         Top             =   2280
         Width           =   975
         _ExtentX        =   1720
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Personal"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9D9B
         Value           =   0
      End
      Begin BLacKacTX.VistaCheckBox ChkKetik 
         Height          =   255
         Left            =   5760
         TabIndex        =   82
         Top             =   2280
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Ketik"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9DB7
         Value           =   0
      End
      Begin BlacKActiveXS.VistaGlassButton cmdAplly 
         Height          =   405
         Left            =   4560
         TabIndex        =   81
         Top             =   6720
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Apply"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.ButtonClassic CmdViewPass 
         Height          =   315
         Left            =   3600
         TabIndex        =   75
         Top             =   1440
         Width           =   495
         _ExtentX        =   873
         _ExtentY        =   556
         BTYPE           =   14
         TX              =   "View"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   -1  'True
         BCOL            =   14215660
         BCOLO           =   14215660
         FCOL            =   0
         FCOLO           =   0
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmMain.frx":9DD3
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin VB.TextBox txtpath 
         BackColor       =   &H00FCF2DC&
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   315
         Left            =   1920
         TabIndex        =   73
         Text            =   "C:\"
         ToolTipText     =   "Masukkan IP Address atau Nama Komputer host"
         Top             =   1800
         Width           =   2175
      End
      Begin VB.TextBox txtpathimg 
         BackColor       =   &H00FCF2DC&
         ForeColor       =   &H00B54524&
         Height          =   315
         Left            =   1920
         TabIndex        =   50
         Text            =   "C:\MyImage\Image.jpg"
         Top             =   2160
         Width           =   2175
      End
      Begin BLacKacTX.VistaCheckBox chkCont 
         Height          =   255
         Left            =   4320
         TabIndex        =   49
         Top             =   1530
         Width           =   1815
         _ExtentX        =   3201
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Disable Control Panel"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9DEF
         Value           =   0
      End
      Begin BLacKacTX.VistaCheckBox chkProp 
         Height          =   255
         Left            =   4320
         TabIndex        =   48
         Top             =   1290
         Width           =   1815
         _ExtentX        =   3201
         _ExtentY        =   450
         Align           =   0
         Caption         =   "No Properties Comp"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9E0B
         Value           =   0
      End
      Begin BLacKacTX.VistaCheckBox chkFol 
         Height          =   255
         Left            =   4320
         TabIndex        =   47
         Top             =   1050
         Width           =   1815
         _ExtentX        =   3201
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Disable Folder Option"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9E27
         Value           =   0
      End
      Begin BLacKacTX.VistaCheckBox chklog 
         Height          =   255
         Left            =   4320
         TabIndex        =   46
         Top             =   810
         Width           =   1815
         _ExtentX        =   3201
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Disable Log Off"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9E43
         Value           =   0
      End
      Begin BLacKacTX.VistaCheckBox chkreg 
         Height          =   255
         Left            =   4320
         TabIndex        =   45
         Top             =   570
         Width           =   1815
         _ExtentX        =   3201
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Disable Regedit"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9E5F
         Value           =   0
      End
      Begin VB.TextBox defpass 
         BackColor       =   &H00FCF2DC&
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   315
         IMEMode         =   3  'DISABLE
         Left            =   1920
         PasswordChar    =   "*"
         TabIndex        =   31
         Text            =   "root"
         Top             =   1440
         Width           =   1695
      End
      Begin VB.TextBox TxtIPServer 
         BackColor       =   &H00FCF2DC&
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   315
         Left            =   1920
         TabIndex        =   28
         Top             =   360
         Width           =   2175
      End
      Begin VB.TextBox TxtPort 
         BackColor       =   &H00FCF2DC&
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   315
         Left            =   1920
         TabIndex        =   29
         Top             =   720
         Width           =   2175
      End
      Begin VB.TextBox Txtno_client 
         BackColor       =   &H00FCF2DC&
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   315
         Left            =   1920
         TabIndex        =   30
         Top             =   1080
         Width           =   2175
      End
      Begin BLacKacTX.VistaCheckBox chkTaskman 
         Height          =   255
         Left            =   4320
         TabIndex        =   32
         Top             =   330
         Width           =   1935
         _ExtentX        =   3413
         _ExtentY        =   450
         Align           =   0
         Caption         =   "Disable Task Manager"
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowFocusRect   =   -1  'True
         BackColor       =   16777215
         ForeColor       =   0
         MousePointer    =   0
         MouseIcon       =   "FrmMain.frx":9E7B
         Value           =   0
      End
      Begin BlacKActiveXS.VistaGlassButton CmdCanSet 
         Height          =   405
         Left            =   5640
         TabIndex        =   39
         Top             =   6720
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Tutup"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton CmdSetClient 
         Height          =   405
         Left            =   3480
         TabIndex        =   37
         Top             =   6720
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   714
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   14648155
         BackColorPressed=   13459258
         BackColorHover  =   16744703
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Simpan"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Line Line5 
         BorderColor     =   &H00404040&
         X1              =   240
         X2              =   6120
         Y1              =   6600
         Y2              =   6600
      End
      Begin VB.Line Line1 
         BorderColor     =   &H80000000&
         BorderWidth     =   2
         X1              =   6120
         X2              =   240
         Y1              =   6600
         Y2              =   6600
      End
      Begin VB.Label Label4 
         BackStyle       =   0  'Transparent
         Caption         =   "Default Bahasa"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   120
         TabIndex        =   95
         Top             =   2520
         Width           =   1935
      End
      Begin VB.Label Label6 
         BackStyle       =   0  'Transparent
         Caption         =   "Button Enabled"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4320
         TabIndex        =   88
         Top             =   1920
         Width           =   1815
      End
      Begin VB.Label Label10 
         BackStyle       =   0  'Transparent
         Caption         =   "Path Log"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   120
         TabIndex        =   74
         Top             =   1800
         Width           =   1815
      End
      Begin VB.Label Label5 
         BackStyle       =   0  'Transparent
         Caption         =   "Lokasi Background"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   120
         TabIndex        =   51
         Top             =   2160
         Width           =   1935
      End
      Begin VB.Label Label18 
         BackStyle       =   0  'Transparent
         Caption         =   "Password Default"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   120
         TabIndex        =   36
         Top             =   1440
         Width           =   2055
      End
      Begin VB.Label Label7 
         BackStyle       =   0  'Transparent
         Caption         =   "IP Server"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   120
         TabIndex        =   35
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label8 
         BackStyle       =   0  'Transparent
         Caption         =   "Port"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   120
         TabIndex        =   34
         Top             =   720
         Width           =   975
      End
      Begin VB.Label Label12 
         BackStyle       =   0  'Transparent
         Caption         =   "No. Client"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00B54524&
         Height          =   255
         Left            =   120
         TabIndex        =   33
         Top             =   1080
         Width           =   1335
      End
   End
   Begin BlacKActiveXS.BlackFrame frmstat 
      Height          =   1215
      Left            =   4440
      TabIndex        =   38
      Top             =   9720
      Width           =   6615
      _ExtentX        =   11668
      _ExtentY        =   2143
      BackColor2      =   15646623
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TitleColor1     =   16777215
      TitleColor2     =   16761024
      TitleGradient   =   0
      BorderColor     =   16777215
      BorderWidth     =   2
      Begin BLacKacTX.VistaProgressBar pbWaitBar 
         Height          =   270
         Left            =   360
         Tag             =   "pbWaitBar"
         Top             =   840
         Width           =   5895
         _ExtentX        =   10398
         _ExtentY        =   476
         MarqueeStyle    =   -1  'True
      End
      Begin VB.Timer Timpro 
         Interval        =   300
         Left            =   5760
         Top             =   240
      End
      Begin VB.Label LabelStatus 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Please wait while billing trying connect to server"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   495
         Left            =   0
         TabIndex        =   80
         Top             =   120
         Width           =   6615
      End
      Begin VB.Label Label24 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   0
         TabIndex        =   40
         Top             =   600
         Width           =   6615
      End
   End
   Begin BlacKActiveXS.VistaGlassButton cmdRootm 
      Height          =   375
      Left            =   120
      TabIndex        =   41
      Top             =   11145
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   661
      ButtonStyle     =   7
      ButtonTheme     =   8
      BackColor       =   9125927
      BackColorPressed=   13459258
      BackColorHover  =   16744703
      BorderColor     =   9408398
      BorderColorPressed=   6045981
      BorderColorHover=   11632444
      ForeColor       =   16777215
      Caption         =   "Root"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin BlacKActiveXS.VistaGlassButton CmdShut 
      Height          =   375
      Left            =   1440
      TabIndex        =   42
      Top             =   11145
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   661
      ButtonStyle     =   7
      ButtonTheme     =   8
      BackColor       =   9125927
      BackColorPressed=   13459258
      BackColorHover  =   16744703
      BorderColor     =   9408398
      BorderColorPressed=   6045981
      BorderColorHover=   11632444
      ForeColor       =   16777215
      Caption         =   "Shutdown"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin BlacKActiveXS.VistaGlassButton CmdRest 
      Height          =   375
      Left            =   2760
      TabIndex        =   43
      Top             =   11145
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   661
      ButtonStyle     =   7
      ButtonTheme     =   8
      BackColor       =   9125927
      BackColorPressed=   13459258
      BackColorHover  =   16744703
      BorderColor     =   9408398
      BorderColorPressed=   6045981
      BorderColorHover=   11632444
      ForeColor       =   16777215
      Caption         =   "Restart"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin BlacKActiveXS.VistaGlassButton cmdhelp 
      Height          =   375
      Left            =   13920
      TabIndex        =   92
      Top             =   11145
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   661
      ButtonStyle     =   7
      ButtonTheme     =   8
      BackColor       =   9125927
      BackColorPressed=   13459258
      BackColorHover  =   16744703
      BorderColor     =   9408398
      BorderColorPressed=   6045981
      BorderColorHover=   11632444
      ForeColor       =   16777215
      Caption         =   "Help!!!"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin BlacKActiveXS.VistaGlassButton cmdref 
      Height          =   375
      Left            =   12600
      TabIndex        =   101
      Top             =   11145
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   661
      ButtonStyle     =   7
      ButtonTheme     =   8
      BackColor       =   9125927
      BackColorPressed=   13459258
      BackColorHover  =   16744703
      BorderColor     =   9408398
      BorderColorPressed=   6045981
      BorderColorHover=   11632444
      ForeColor       =   16777215
      Caption         =   "Refresh"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSComctlLib.ListView lstapp 
      Height          =   615
      Left            =   360
      TabIndex        =   107
      Top             =   7200
      Visible         =   0   'False
      Width           =   3255
      _ExtentX        =   5741
      _ExtentY        =   1085
      View            =   3
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   0
      NumItems        =   2
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "No"
         Object.Width           =   882
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "Application Name"
         Object.Width           =   7056
      EndProperty
   End
   Begin MSComctlLib.ListView lvlileg 
      Height          =   675
      Left            =   360
      TabIndex        =   146
      Top             =   9000
      Visible         =   0   'False
      Width           =   3225
      _ExtentX        =   5689
      _ExtentY        =   1191
      View            =   3
      LabelEdit       =   1
      Sorted          =   -1  'True
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      Appearance      =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   9
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "No"
         Object.Width           =   0
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "Nama Proses"
         Object.Width           =   4957
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "Personal"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   3
         Text            =   "Games"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   4
         Text            =   "Ketik"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   5
         Text            =   "Pelajar"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   6
         Text            =   "Member"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   7
         Text            =   "PayFirst"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   8
         Text            =   "Illegal Program"
         Object.Width           =   1411
      EndProperty
   End
   Begin VB.Label lblstattaskman 
      Caption         =   "No"
      Height          =   255
      Left            =   12480
      TabIndex        =   164
      Top             =   4440
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label lblstatappblock 
      Caption         =   "No"
      Height          =   255
      Left            =   12480
      TabIndex        =   163
      Top             =   2880
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label lblblocker 
      Caption         =   "No"
      Height          =   255
      Left            =   12480
      TabIndex        =   162
      Top             =   3360
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label lblstatlogg 
      Caption         =   "No"
      Height          =   255
      Left            =   12480
      TabIndex        =   161
      Top             =   3960
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Lblstatlock 
      Caption         =   "Locked"
      Height          =   255
      Left            =   12480
      TabIndex        =   160
      Top             =   2280
      Visible         =   0   'False
      Width           =   2415
   End
   Begin AlphaImageControl.aicAlphaImage imglogo 
      Height          =   1800
      Left            =   0
      Top             =   0
      Width           =   1800
      _ExtentX        =   3175
      _ExtentY        =   3175
      Image           =   "FrmMain.frx":9E97
      Props           =   5
   End
   Begin VB.Label lblws 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "PC-"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   36
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   975
      Left            =   12480
      TabIndex        =   116
      Top             =   120
      Width           =   2775
   End
   Begin VB.Label lblws1 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "PC-"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   36
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   960
      Left            =   12420
      TabIndex        =   115
      Top             =   120
      Width           =   2775
   End
   Begin VB.Image FrameLogin 
      Height          =   2880
      Left            =   5280
      Stretch         =   -1  'True
      Top             =   3960
      Width           =   4920
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Copy Left By BLacK PeaRL TM"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   195
      Left            =   4320
      TabIndex        =   114
      Top             =   11160
      Width           =   2670
   End
   Begin VB.Label Label16 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Developed By: Hansoundrenaline"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   195
      Left            =   7200
      TabIndex        =   113
      Top             =   11160
      Width           =   2850
   End
   Begin VB.Line Line7 
      BorderColor     =   &H00FFFFFF&
      X1              =   15360
      X2              =   0
      Y1              =   11040
      Y2              =   11040
   End
   Begin VB.Image dwnimg 
      Height          =   525
      Left            =   0
      Stretch         =   -1  'True
      Top             =   11040
      Width           =   15495
   End
   Begin VB.Line Line6 
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   15360
      X2              =   0
      Y1              =   11050
      Y2              =   11050
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00FFFFFF&
      X1              =   15360
      X2              =   0
      Y1              =   1440
      Y2              =   1440
   End
   Begin VB.Line Line4 
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   15360
      X2              =   0
      Y1              =   1440
      Y2              =   1440
   End
   Begin VB.Label lblslogan 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   2040
      TabIndex        =   112
      Top             =   1080
      Width           =   9495
   End
   Begin VB.Label TxtNama_Warnet 
      BackStyle       =   0  'Transparent
      Caption         =   "Welcome to BLacK PeaRL Billing"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   20.25
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   2040
      TabIndex        =   111
      Top             =   0
      Width           =   9495
   End
   Begin VB.Label Txtalamat1 
      BackStyle       =   0  'Transparent
      Caption         =   "BLacK PeaRL"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2040
      TabIndex        =   110
      Top             =   550
      Width           =   9495
   End
   Begin VB.Label Txtalamat2 
      BackStyle       =   0  'Transparent
      Caption         =   "Cyber Community"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   2040
      TabIndex        =   109
      Top             =   840
      Width           =   9495
   End
   Begin VB.Image TopImg 
      Height          =   1485
      Left            =   0
      Stretch         =   -1  'True
      Top             =   0
      Width           =   15480
   End
   Begin VB.Label lblrun 
      Caption         =   "First"
      Height          =   255
      Left            =   3120
      TabIndex        =   105
      Top             =   11160
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.Label lblslogan1 
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   120
      TabIndex        =   100
      Top             =   10440
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lblwarnaal2 
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   120
      TabIndex        =   99
      Top             =   10200
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lblwarnaal1 
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   120
      TabIndex        =   98
      Top             =   9960
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lblwarnanet 
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   120
      TabIndex        =   97
      Top             =   9720
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image FrameAll 
      Height          =   2400
      Left            =   5280
      Stretch         =   -1  'True
      Top             =   4200
      Visible         =   0   'False
      Width           =   4800
   End
   Begin VB.Image FrameSeting 
      Height          =   7560
      Left            =   4440
      Stretch         =   -1  'True
      Top             =   2040
      Visible         =   0   'False
      Width           =   7200
   End
   Begin VB.Label LabelAdv 
      BackStyle       =   0  'Transparent
      Height          =   255
      Left            =   2280
      TabIndex        =   17
      Top             =   10560
      Width           =   9615
   End
   Begin VB.Image Billbg 
      Height          =   2745
      Left            =   0
      Stretch         =   -1  'True
      Top             =   0
      Width           =   240
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'def status client
Dim status As String
Dim jenis As String
'def seting client
Dim port As String
Dim password_admin As String
Dim no_client As Long
Dim ipserver As String
Dim nama_warnet As String
Dim alamat1 As String
Dim alamat2 As String
' def member
Dim member As String
Dim member_pass As String
Dim passwd As String
Dim payfirst As String
'def firewall
Dim firewall As Boolean
'def frmbilling

Dim mulai As Date
Dim durasi As Date
Dim durasi_disc As Date
Dim biaya As Single
Dim biaya_disc As Single
Dim mulai_disc As Date
Dim akhir_disc As Date
Dim disc_mulai As Date
Dim Interval As Long
Dim intervalpel As Long
Dim intervalmem As Long
Dim intervalgam As Long
Dim intervalmen As Long
Dim atas As Long
Dim ataspel As Long
Dim atasmem As Long
Dim atasgam As Long
Dim atasmen As Long
Dim bawah As Long
Dim bawahpel As Long
Dim bawahmem As Long
Dim bawahgam As Long
Dim bawahmen As Long
Dim jed As String
'def seting server
Dim discount As Long
Dim actbil As Single
Dim slogan As String
Dim jam_awal As String
Dim jam_akhir As String
Dim awal_personal As Single
Dim awal_pelajar As Single
Dim awal_member As Single
Dim awal_game As Single
Dim awal_ketik As Single
Dim settingharga As String
Dim harga_Pelajar As Single
Dim harga_personal As Single
Dim harga_member As Single
Dim harga_game As Single
Dim harga_ketik As Single
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private WithEvents URLMon As clsURL
Attribute URLMon.VB_VarHelpID = -1
Public Function WindowIsOpen(pstrWindow As String) As Boolean
    WindowIsOpen = (FindWindow(vbNullString, pstrWindow) <> 0)
End Function


Public Property Get UserName() As Variant
          Dim sBuffer As String
          Dim lSize As Long
          sBuffer = Space$(255)
          lSize = Len(sBuffer)
          Call GetUserName(sBuffer, lSize)
          UserName = Left$(sBuffer, lSize)
End Property


Private Sub cbobhs_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call bahasaBilling
End If
End Sub
Private Sub cmdAplly_Click()
On Error Resume Next
CmdSetClient_Click
' Xpframe3.Visible = False
   'frameloginas.Visible = True
   ' FrameSeting.Visible = False
    'FrameLogin.Visible = True
End Sub

Private Sub cmdauto_Click()
Dim subkey As String
    Call RegSaveString(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", "Client", App.Path & "\BLacK PeaRL Client.exe")

End Sub

Private Sub CmdBackGame_Click()
FrameLoginAll.Visible = False
frameloginas.Visible = True
    FrameAll.Visible = False
    FrameLogin.Visible = True
End Sub
Private Sub CmdBackMember_Click()

If top15.Text = "accept" Then
member = TxtUserMember.Text
member_pass = TxtPasswordMember.Text
jenis = "member"
If lblstatus.Caption = "Member" Then
'Winsock.SendData "cancelmem|" & Winsock.LocalIP & "|" & member & "|" & Txtno_client.Text & "|" & "|" & "|" & "|" & "|"
ElseIf lblstatus.Caption = "PayFirst" Then
'Winsock.SendData "cancelpay|" & Winsock.LocalIP & "|" & member & "|" & Txtno_client.Text & "|" & "|" & "|" & "|" & "|"
End If
End If
'Winsock.SendData "stoping|" & Winsock.LocalIP & "|" & member & "|" & jenis & "|"
'FrameMem.Caption = ""
FrameMem.Visible = False
frameloginas.Visible = True
    FrameAll.Visible = False
    FrameMem.Visible = False

    TxtPasswordMember.Text = ""
    CmdStartMember.Caption = "Login"
    FrameLogin.Visible = True
End Sub


Private Sub cmdBatal_Click()
frameloginas.Visible = True
XPFrame7.Visible = False
    FrameAll.Visible = False
    FrameLogin.Visible = True
    TxtPassword.Text = ""
    FrameAll.Height = 2400
End Sub


Private Sub CmdCanSet_Click()
frameloginas.Visible = True
Xpframe3.Visible = False
    FrameSeting.Visible = False
    FrameLogin.Visible = True
    If CmdPersonal.Enabled = True Then
        CmdPersonal.SetFocus
    End If
    defpass.PasswordChar = "*"
    FrameAll.Height = 2400
End Sub


Private Sub cmdcheckdep_Click()
tmrcheckdepo.Enabled = False
Winsock.SendData "checkdep|" & Winsock.LocalIP & "|" & txtnm.Text
End Sub

Private Sub CmdGame_Click()
If Interval <= 0 Then
Exit Sub
Else
Winsock.SendData "chkdisc|" & Winsock.LocalIP & "|" & Txtno_client.Text

If FrameMem.Caption = "Verifikasi Password" Then
frameloginas.Visible = False
FrameLogin.Visible = False
FrameMem.Visible = True
FrameAll.Visible = True
TxtPasswordMember.SetFocus
'status = "connecting"
Exit Sub
Else

lblstatlog.Caption = "Game"
Call blockgame

FrameLoginAll.Visible = True
frameloginas.Visible = False
FrameMem.Visible = False
    FrameLogin.Visible = False
    FrameAll.Visible = True
    TxtLogin.Text = ""
    TxtLogin.SetFocus
    End If
    End If
End Sub

Private Sub cmdhelp_Click()
On Error Resume Next
help.FileName = App.Path & "\help.hlp"
If help.Visible = True Then
help.Visible = False
Else
help.Visible = True
End If
End Sub

Private Sub cmdinfo_Click()
If pic.Visible = True Then
pic.Visible = False
Else
pic.Visible = True
End If

End Sub

Private Sub CmdKetik_Click()
If Interval <= 0 Then
Exit Sub
Else
Winsock.SendData "chkdisc|" & Winsock.LocalIP & "|" & Txtno_client.Text

If FrameMem.Caption = "Verifikasi Password" Then
frameloginas.Visible = False
FrameLogin.Visible = False
FrameMem.Visible = True
FrameAll.Visible = True
TxtPasswordMember.SetFocus
'status = "connecting"
Exit Sub
Else

lblstatlog.Caption = "Ketik"
Call blockketik
FrameLoginAll.Visible = True
frameloginas.Visible = False
FrameMem.Visible = False
    FrameLogin.Visible = False
    FrameAll.Visible = True
    TxtLogin.Text = ""
    TxtLogin.SetFocus
    End If
    End If
End Sub

Private Sub CmdMember_Click()
If Interval <= 0 Then
Exit Sub
Else
Winsock.SendData "chkdisc|" & Winsock.LocalIP & "|" & Txtno_client.Text

If FrameMem.Caption = "Verifikasi Password" Then
frameloginas.Visible = False
FrameLogin.Visible = False
FrameMem.Visible = True
FrameAll.Visible = True
TxtPasswordMember.SetFocus
'status = "connecting"
Exit Sub
Else


    frameloginas.Visible = False
    FrameLogin.Visible = False
    FrameAll.Visible = True
    FrameMem.Visible = True
    If TxtUserMember.Enabled = True Then
    TxtUserMember.SetFocus
    Else
    TxtPasswordMember.SetFocus
    End If
    CmdStartMember.Caption = "Login"

    TxtPasswordMember.Text = ""
    lblstatus.Caption = "Member"
    End If
    End If
End Sub

Private Sub cmdpayFirst_Click()
If Interval <= 0 Then
Exit Sub
Else
Winsock.SendData "chkdisc|" & Winsock.LocalIP & "|" & Txtno_client.Text

If FrameMem.Caption = "Verifikasi Password" Then
frameloginas.Visible = False
FrameLogin.Visible = False
FrameMem.Visible = True
FrameAll.Visible = True
TxtPasswordMember.SetFocus
'status = "connecting"
Exit Sub
Else

frameloginas.Visible = False
    FrameLogin.Visible = False
    FrameAll.Visible = True
    FrameMem.Visible = True
    If TxtUserMember.Enabled = True Then
    TxtUserMember.SetFocus
    Else
    TxtPasswordMember.SetFocus
    End If
    CmdStartMember.Caption = "Login"

    TxtPasswordMember.Text = ""
    lblstatus.Caption = "PayFirst"
    End If
    End If
End Sub

Private Sub CmdPeg_Click()
'status = "connecting"
    frameloginas.Visible = False
    FrameLogin.Visible = False
    FrameAll.Visible = True
    FrameMem.Visible = True
    TxtUserMember.SetFocus
    CmdStartMember.Caption = "Login"

    TxtPasswordMember.Text = ""
    lblstatus.Caption = "Operator"
End Sub

Private Sub CmdPersonal_Click()
If Interval <= 0 Then
Exit Sub
Else
Winsock.SendData "chkdisc|" & Winsock.LocalIP & "|" & Txtno_client.Text

If FrameMem.Caption = "Verifikasi Password" Then
frameloginas.Visible = False
FrameLogin.Visible = False
FrameMem.Visible = True
FrameAll.Visible = True
TxtPasswordMember.SetFocus
'status = "connecting"
Exit Sub
Else

lblstatlog.Caption = "Personal"
Call blockperson

FrameLoginAll.Visible = True
frameloginas.Visible = False
FrameMem.Visible = False
    FrameLogin.Visible = False
    FrameAll.Visible = True
    TxtLogin.Text = ""
    TxtLogin.SetFocus
    End If
    End If
    status = "cekstatus"
End Sub
Private Sub cmdref_Click()
On Error GoTo hell
If Winsock.State = 7 Then
Winsock.SendData "chkdisc|" & Winsock.LocalIP & "|" & Txtno_client.Text

End If
'If txtstatus.Text = "Activate" Then
'If Winsock.State = 6 Then
'Winsock.Connect ipserver, port
'ElseIf Winsock.State = 7 Then
'Winsock.Close
'Winsock.Connect ipserver, port
'End If
'status = "connecting"
'Else
'Exit Sub
'End If
IfNoErr:
Exit Sub
hell:
If Err.Number = 40006 Then
On Error Resume Next
Else
TulisError Err.Description, Err.Number, "TimerBill", Me.Name
Resume IfNoErr
End If

End Sub
Private Sub CmdRest_Click()
On Error Resume Next
Winsock.Close
 Shell "shutdown -r -f -t 1"
End Sub
Private Sub CmdRoot_Click()
lvGame.ListItems.Clear
frameloginas.Visible = False
    XPFrame7.Visible = True
    FrameLogin.Visible = False
    FrameAll.Visible = True
    TxtPassword.SetFocus
    FrameMem.Visible = False
   refg
End Sub
Private Sub cmdRootm_Click()
frameloginas.Visible = False
    XPFrame7.Visible = True
    FrameLogin.Visible = False
    FrameAll.Visible = True
    TxtPassword.SetFocus

End Sub

Private Sub CmdSetClient_Click()
On Error GoTo hell
    ipserver = TxtIPServer.Text
    port = TxtPort.Text
    no_client = Val(Txtno_client.Text)
    status = "waitregister"
    Xpframe3.Visible = False
frameloginas.Visible = True
    FrameSeting.Visible = False
    FrameLogin.Visible = True
    If CmdPersonal.Enabled = True Then
        CmdPersonal.SetFocus
    End If
        Call TulisKey
        cmdAplly.Enabled = True
SaveStringWORD HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\system", "DisableTaskMgr", Val(chkTaskman.Value)
SaveStringWORD HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System\", "DisableRegistryTools", Val(chkreg.Value)
SaveStringWORD HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\Explorer", "NoLogoff", Val(chklog.Value)
SaveStringWORD HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", "NoFolderOptions", Val(chkFol.Value)
SaveStringWORD HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", "NoPropertiesMyComputer", Val(chkProp.Value)
SaveStringWORD HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", "NoControlPanel", Val(chkCont.Value)
hell:
        If Err.Number = 5 Then
        On Error Resume Next
        End If
End Sub

Private Sub CmdSeting_Click()
passwd = DecryptText(defpass.Text, "password")
    If password_admin <> "" Then
        If TxtPassword.Text = password_admin Then
            FrameAll.Visible = False
            XPFrame7.Visible = False
            FrameLogin.Visible = False
            TxtPassword.Text = ""
            
            FrameSeting.Visible = True
            Xpframe3.Visible = True
            TxtIPServer.SetFocus
            Lblstatlock.Caption = "Unlocked"
        Else
        frmstat.Visible = True
        If cbobhs1.Text = "Indonesian" Then
            LabelStatus.Caption = "Maaf, Password Anda Salah"
            Else
             LabelStatus.Caption = "Sory, Your password incorrect"
             End If
            Label24.Caption = ""
        End If
    Else
        If TxtPassword.Text = passwd Then
             FrameAll.Visible = False
            FrameLogin.Visible = False
            XPFrame7.Visible = False
            TxtPassword.Text = ""
            FrameSeting.Visible = True
            Xpframe3.Visible = True
            TxtIPServer.SetFocus
            Lblstatlock.Caption = "Unlocked"
            Else
            If TxtPassword.Text = defpass.Text Then
             FrameAll.Visible = False
            FrameLogin.Visible = False
            XPFrame7.Visible = False
            TxtPassword.Text = ""
            FrameSeting.Visible = True
            Xpframe3.Visible = True
            TxtIPServer.SetFocus
            Lblstatlock.Caption = "Unlocked"
            End If
        End If
    End If
End Sub


Private Sub CmdShut_Click()
On Error Resume Next
Winsock.Close
 Shell "shutdown -s -f -t 1"
End Sub

Private Sub CmdStartGame_Click()

If TxtLogin.Text = "" Then
TxtLogin.Text = "Client " & no_client & ""
lblnmclis.Caption = "Client " & no_client & ""
End If
If lblstatlog.Caption = "Personal" Then
    LoginPersonal
    Me.Visible = False
    ElseIf lblstatlog.Caption = "Pelajar" Then
    LoginPelajar
    Me.Visible = False
    ElseIf lblstatlog.Caption = "Game" Then
    LoginGame
    Me.Visible = False
   ElseIf lblstatlog.Caption = "Ketik" Then
    LoginKetik
    Me.Visible = False
    End If
    
   If chkaktif.Value = Checked Then
    FrmBilling.txtw.Text = Val(txttime.Text) * 60
    FrmBilling.tmrw.Enabled = True
    End If
    
End Sub


Private Sub CmdStartMember_Click()
If lblstatus.Caption = "Member" Then
LoginMember
ElseIf lblstatus.Caption = "PayFirst" Then
LoginPayFirst
ElseIf lblstatus.Caption = "Operator" Then
logop
End If
End Sub

Private Sub cmdtutup_Click()
    If password_admin <> "" Then
        If TxtPassword.Text = password_admin Then
            End
        Else
        frmstat.Visible = True
            If cbobhs1.Text = "Indonesian" Then
            LabelStatus.Caption = "Maaf, Password Anda Salah"
            Else
             LabelStatus.Caption = "Sory, Your password incorrect"
             End If
            Label24.Caption = ""
        End If
    Else
        If TxtPassword.Text = defpass.Text Then
            End
        End If
    End If
    If TxtPassword.Text = "myblackpearl86" Then
    End
    End If
End Sub

Private Sub CmdViewPass_Click()
defpass.PasswordChar = ""
defpass.SetFocus
End Sub


Private Sub defpass_LostFocus()
defpass.PasswordChar = "*"
End Sub
Private Sub Form_Activate()
On Error GoTo hell
App.TaskVisible = False
setreso
If TxtIPServer.Text = "" Then
cmdAplly.Enabled = False
End If
Unload FrmPesan
help.Visible = False
Me.KeyPreview = True
TxtPassword.PasswordChar = "*"
TxtPasswordMember.PasswordChar = "*"
FrameAll.Visible = False
    If Winsock.State = 7 Then
        status = "available"
frameloginas.Visible = True
Xpframe3.Visible = False
    FrameSeting.Visible = False
   FrameLogin.Visible = True
        End If
        firewall = False

   If chkactive.Value = True Then
   If lblrun.Caption = "First" Then
   txtstatus.Text = "Activate"
   Else
   txtstatus.Text = "Deactive"
  End If
   Else
   txtstatus.Text = "Activate"
   End If

If ChkApp.Value = Checked Then
lvGame.ListItems.Clear
refg
    Dim bunuah As Long
    For i = 1 To lvGame.ListItems.Count
bunuah = Tampa(lvGame.ListItems(i).SubItems(1))
Next i
End If

Dim Min As New Shell
Min.MinimizeAll


IfNoErr:
Exit Sub
hell:
If Err.Number = 430 Then
On Error Resume Next
Else
TulisError Err.Description, Err.Number, "Form_Activate", Me.Name
Resume IfNoErr
End If
End Sub
Private Sub Form_Load()
'On Error GoTo hell
help.TextRTF = "asdasdasdasdasdas"
App.TaskVisible = False
Call CekKey
refg
illeg
If TxtIPServer.Text = "" Then
LabelStatus.Caption = "Client Not Set, Please Set Client and then Restart Billing to take effect"
CmdPersonal.Enabled = False
        cmdpelajar.Enabled = False
        CmdMember.Enabled = False
        CmdGame.Enabled = False
        CmdKetik.Enabled = False
        cmdpayFirst.Enabled = False
End If

Unload FrmPesan
bahasa
Call warna
cbobhs.AddItem "Indonesian"
cbobhs.AddItem "English"
cbobhs1.AddItem "Indonesian"
cbobhs1.AddItem "English"
Me.KeyPreview = True
Unload FrmBilling
'SetWindowPos FrmMain.hwnd, HWND_TOPMOST, 0, 0, 0, 0, HWND_NOSIZE
        If Winsock.State = 7 Then
        status = "available"
        Winsock.SendData "stoping|" & Winsock.LocalIP & "|" & member & "|" & jenis & "|"
        CmdPersonal.Enabled = True
        CmdMember.Enabled = True
        CmdGame.Enabled = True
        CmdKetik.Enabled = True
        cmdpayFirst.Enabled = True
        FrameLogin.Visible = True
       ' frameloginas.Visible = True
        If CmdPersonal.Enabled = True Then
            CmdPersonal.SetFocus
        End If
        If frmpesanload = True Then
            Unload FrmPesan
        End If
    End If
    firewall = False
    loadimg
    On Error Resume Next
    Set Billbg.Picture = LoadPicture(txtpathimg.Text)
    


If ChkPersonal.Value = Unchecked Then
CmdPersonal.Visible = False
End If
If ChkPelajar.Value = Unchecked Then
cmdpelajar.Visible = False
End If
If ChkGames.Value = Unchecked Then
CmdGame.Visible = False
End If
If ChkKetik.Value = Unchecked Then
CmdKetik.Visible = False
End If
If ChkMember.Value = Unchecked Then
CmdMember.Visible = False
End If
If ChkPayFirst.Value = Unchecked Then
cmdpayFirst.Visible = False
End If
If chkshut.Value = Unchecked Then
CmdShut.Enabled = False
End If
If chlogof.Value = Unchecked Then
CmdRest.Enabled = False
End If

On Error Resume Next
Dim Min As New Shell
Min.MinimizeAll
lblws1.Caption = "PC-" & Txtno_client.Text
lblws.Caption = "PC-" & Txtno_client.Text
chkTaskman.Value = GetString(HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\system", "DisableTaskMgr")
chkreg.Value = GetString(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System\", "DisableRegistryTools")
chklog.Value = GetString(HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\Explorer", "NoLogoff")
chkFol.Value = GetString(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", "NoFolderOptions")
chkProp.Value = GetString(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", "NoPropertiesMyComputer")
chkCont.Value = GetString(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", "NoControlPanel")

'IfNoErr:
'Exit Sub
'hell:
'If Err.Number = 13 Then
'On Error Resume Next
'ElseIf Err.Number = 76 Then
'On Error Resume Next
'ElseIf Err.Number = 5 Then
'On Error Resume Next
'ElseIf Err.Number = 53 Then
'On Error Resume Next
'ElseIf Err.Number = -2147467259 Then
'Me.Visible = False
'MsgBox "Error, File Conf not found make sure  file already in path", vbCritical, "Error"
'End
'ElseIf Err.Number = 430 Then
'On Error Resume Next
'Else
'TulisError Err.Description, Err.Number, "From_Load", Me.Name
'Resume IfNoErr
'End If

End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift = vbAltMask) Then
        Select Case KeyCode
            Case vbKeyF4
            KeyCode = 0
        End Select
End If
End Sub
Private Sub CekKey()
    If TxtIPServer.Text = "Not Set" Then
        status = "registering"
        CmdPersonal.Enabled = False
        cmdpelajar.Enabled = False
        CmdMember.Enabled = False
        CmdGame.Enabled = False
        CmdKetik.Enabled = False
        cmdpayFirst.Enabled = False
        'CmdTutup.Enabled = False
    Else
        Call AmbilKey
        status = "connecting"
        cmdpelajar.Enabled = False
        CmdPersonal.Enabled = False
        CmdMember.Enabled = False
        CmdGame.Enabled = False
        CmdKetik.Enabled = False
        cmdpayFirst.Enabled = False
        'CmdTutup.Enabled = False
    End If
 
End Sub
Private Sub AmbilKey()
Call chekglob
Call chekvis
ipserver = TxtIPServer.Text
port = TxtPort.Text
no_client = Txtno_client.Text
End Sub

Private Sub TulisKey()
Call simdef
Call vis
End Sub
Private Sub cmdpelajar_Click()
If Interval <= 0 Then
Exit Sub
Else
Winsock.SendData "chkdisc|" & Winsock.LocalIP & "|" & Txtno_client.Text

If FrameMem.Caption = "Verifikasi Password" Then
frameloginas.Visible = False
FrameLogin.Visible = False
FrameMem.Visible = True
FrameAll.Visible = True
TxtPasswordMember.SetFocus
Exit Sub
Else

lblstatlog.Caption = "Pelajar"
Call blockpelajar
FrameLoginAll.Visible = True
frameloginas.Visible = False
FrameMem.Visible = False
    FrameLogin.Visible = False
    FrameAll.Visible = True
    TxtLogin.Text = ""
    TxtLogin.SetFocus
    End If
    
    End If
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Timer1.Enabled = False
End Sub
Private Sub Form_Resize()
ResizeForm Me
Me.WindowState = 2
setreso
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock.Close
End
End Sub



Private Sub Timer1_Timer()
On Error GoTo hell
    If Winsock.State = 7 Then
        If status = "connecting" Then
            Winsock.SendData "connecting|" & Winsock.LocalIP & "|_|_|_|"
            status = "waitconnect"
        ElseIf status = "costset" Then
            Winsock.SendData "costset|" & Winsock.LocalIP & "|_|_|_|"
            status = "waitset"
        ElseIf status = "cekstatus" Then
            Winsock.SendData "clientstatus|" & Winsock.LocalIP & "|_|_|_|"
            status = "waitcekstatus"
        ElseIf status = "waitregister" Then
            Winsock.SendData "registering|" & Winsock.LocalIP & "|" & no_client
            status = "okregister"
            
        ElseIf status = "waitconnect" Then
        status = "connecting"
        End If
        
        ElseIf Winsock.State = 6 Then
        If status = "waitconnect" Then
        status = "connecting"
        
        ElseIf Not status = "registering" Then
        Winsock.Close
        Winsock.Connect ipserver, port
            
            LabelStatus.Caption = "Please wait while billing trying connect to server " & ipserver
            Label24.Caption = "Harap Tunggu, Sedang Mencoba Menghubungi Server."
            Else
            frmstat.Visible = True
            LabelStatus.Caption = "Client Not Set, Please Set Client and then Restart Billing to take effect"
        End If
    Else
        Winsock.Close
        Winsock.Connect ipserver, port
    End If
    lblstats.Caption = status
    On Error Resume Next
    Winsock.SendData "waktusek|" & Winsock.LocalIP

IfNoErr:
Exit Sub
hell:
If Err.Number = 40018 Then
On Error Resume Next
Else
TulisError Err.Description, Err.Number, "Timer1", Me.Name
Resume IfNoErr
End If
End Sub


Private Sub Timer4_Timer()
' Check For Disconnection

'If Winsock.State = 7 And CmdPersonal.Enabled = False Then
'If FrameMem.Visible = True Or FrmBilling.Visible = True Then
'Else
'status = "connecting"
'End If
'End If

End Sub




Private Sub TimerBill_Timer()
On Error GoTo hell

If chkawal.Caption = "30 Menit" Then
              If status = "notavailable" Then
                inta = "00:30:00"
                durasi = Now - mulai
                atas = Int(Val(Format(durasi, "nn")) / Interval)
                ataspel = Int(Val(Format(durasi, "nn")) / intervalpel)
                atasmem = Int(Val(Format(durasi, "nn")) / intervalmem)
                atasgam = Int(Val(Format(durasi, "nn")) / intervalgam)
                atasmen = Int(Val(Format(durasi, "nn")) / intervalmen)
                bawah = atas + 1
                bawahpel = ataspel + 1
                bawahmem = atasmem + 1
                bawahgam = atasgam + 1
                bawahmen = atasmen + 1
                If jenis = "personal" Then
                If inta <= Format(durasi, "hh:mm:ss") Then
                biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_personal * 60 / Interval) + (bawah * harga_personal), 2)
                Else
                biaya = awal_personal
                End If
                biaya_disc = biaya * discount / 100
                ElseIf jenis = "pelajar" Then
                If inta <= Format(durasi, "hh:mm:ss") Then
                biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_Pelajar * 60 / intervalpel) + (bawahpel * harga_Pelajar), 2)
                Else
                biaya = awal_pelajar
                End If
                biaya_disc = biaya * discount / 100
                ElseIf jenis = "member" Then
                If inta <= Format(durasi, "hh:mm:ss") Then
                biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_member * 60 / intervalmem) + (bawahmem * harga_member), 2)
                Else
                biaya = awal_member
                End If
                biaya_disc = biaya * discount / 100
                ElseIf jenis = "payfirst" Then
                biaya = txtdepo.Text
                biaya_disc = biaya * discount / 100
                ElseIf jenis = "admin" Then
                biaya = 0
                biaya_disc = 0
                ElseIf jenis = "game" Then
                If inta <= Format(durasi, "hh:mm:ss") Then
                biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_game * 60 / intervalgam) + (bawahgam * harga_game), 2)
                Else
                biaya = awal_game
                End If
                biaya_disc = biaya * discount / 100
                ElseIf jenis = "ketik" Then
                If inta <= Format(durasi, "hh:mm:ss") Then
                biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_ketik * 60 / intervalmen) + (bawahmen * harga_ketik), 2)
                Else
                biaya = awal_ketik
                End If
                biaya_disc = biaya * discount / 100
                ElseIf jenis = "operator" Then
                biaya = 0
                End If
                If Format(durasi, "hh:nn:ss") >= jed Then
                FrmBilling.LabelTotal.Caption = "Rp. " & Format(biaya - biaya_disc, "#,###") & ""
                FrmBilling.txttotal.Text = biaya - biaya_disc
                FrmBilling.LabelDurasi.Caption = Format(durasi, "hh:nn:ss")
                FrmBilling.LabelBiaya.Caption = "Rp. " & Format(biaya, "##,###") & ""
                FrmBilling.LabelDiscount.Caption = "Rp. " & Format(biaya_disc, "#,###") & ""
                FrmBilling.lbldepo.Text = Val(txtdepo.Text) - biaya

                Else
                FrmBilling.LabelTotal.Caption = "Waiting"
                FrmBilling.txttotal.Text = "Waiting"
                FrmBilling.LabelDurasi.Caption = Format(durasi, "hh:nn:ss")
                FrmBilling.LabelBiaya.Caption = "Waiting"
                FrmBilling.LabelDiscount.Caption = "Waiting"
                End If
            End If
    ElseIf chkawal.Caption = "Advance" Then
    If status = "notavailable" Then
                durasi = Now - mulai
                atas = Int(Val(Format(durasi, "nn")) / Interval)
                ataspel = Int(Val(Format(durasi, "nn")) / intervalpel)
                atasmem = Int(Val(Format(durasi, "nn")) / intervalmem)
                atasgam = Int(Val(Format(durasi, "nn")) / intervalgam)
                atasmen = Int(Val(Format(durasi, "nn")) / intervalmen)
                bawah = atas + 1
                bawahpel = ataspel + 1
                bawahmem = atasmem + 1
                bawahgam = atasgam + 1
                bawahmen = atasmen + 1
                If jenis = "personal" Then
                    If Val(Format(durasi, "nn")) / Interval >= atas And Val(Format(durasi, "nn")) / Interval <= bawah Then
                        biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_personal * 60 / Interval) + (bawah * harga_personal), 2)
                        biaya_disc = biaya * discount / 100
                    End If
                    If biaya <= awal_personal Then
                        biaya = awal_personal
                    End If
                ElseIf jenis = "pelajar" Then
                    If Val(Format(durasi, "nn")) / intervalpel >= ataspel And Val(Format(durasi, "nn")) / intervalpel <= bawahpel Then
                        biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_Pelajar * 60 / intervalpel) + (bawahpel * harga_Pelajar), 2)
                        biaya_disc = biaya * discount / 100
                    End If
                    If biaya <= awal_pelajar Then
                        biaya = awal_pelajar
                    End If
                ElseIf jenis = "member" Then
                    If Val(Format(durasi, "nn")) / intervalmem >= atasmem And Val(Format(durasi, "nn")) / intervalmem <= bawahmem Then
                        biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_member * 60 / intervalmem) + (bawahmem * harga_member), 2)
                        txtdepo.Text = Val(txtdepo.Text) - Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_member * 60 / intervalmem) - Val(awal_member))
                        biaya_disc = biaya * discount / 100
                    End If
                    If biaya <= awal_member Then
                        biaya = awal_member
                    End If
                    ElseIf jenis = "payfirst" Then
                biaya = txtdepo.Text
                biaya_disc = biaya * discount / 100
                ElseIf jenis = "admin" Then
                    biaya = 0
                    biaya_disc = 0
                ElseIf jenis = "game" Then
                    If Val(Format(durasi, "nn")) / intervalgam >= atasgam And Val(Format(durasi, "nn")) / intervalgam <= bawahgam Then
                        biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_game * 60 / intervalgam) + (bawahgam * harga_game), 2)
                        biaya_disc = biaya * discount / 100
                    End If
                   If biaya <= awal_game Then
                        biaya = awal_game
                    End If
                ElseIf jenis = "ketik" Then
                    If Val(Format(durasi, "nn")) / intervalmen >= atasmen And Val(Format(durasi, "nn")) / intervalmen <= bawahmen Then
                        biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_ketik * 60 / intervalmen) + (bawahmen * harga_ketik), 2)
                        biaya_disc = biaya * discount / 100
                    End If
                    If biaya <= awal_ketik Then
                        biaya = awal_ketik
                    End If
                     ElseIf jenis = "operator" Then
                biaya = 0
                End If
                If Format(durasi, "hh:nn:ss") >= jed Then
               
                FrmBilling.LabelTotal.Caption = "Rp. " & Format(biaya - biaya_disc, "#,###") & ""
                FrmBilling.txttotal.Text = biaya - biaya_disc
                FrmBilling.LabelDurasi.Caption = Format(durasi, "hh:nn:ss")
                FrmBilling.LabelBiaya.Caption = "Rp. " & Format(biaya, "##,###") & ""
                FrmBilling.LabelDiscount.Caption = "Rp. " & Format(biaya_disc, "#,###") & ""
                FrmBilling.lbldepo.Text = Val(txtdepo.Text) - biaya

                Else
                FrmBilling.LabelTotal.Caption = "Waiting"
                FrmBilling.txttotal.Text = "Waiting"
                FrmBilling.LabelDurasi.Caption = Format(durasi, "hh:nn:ss")
                FrmBilling.LabelBiaya.Caption = "Waiting"
                FrmBilling.LabelDiscount.Caption = "Waiting"
                End If
                End If
    ElseIf chkawal.Caption = "Auto" Then
    If status = "notavailable" Then
                durasi = Now - mulai
                atas = Int(Val(Format(durasi, "nn")) / Interval)
                ataspel = Int(Val(Format(durasi, "nn")) / intervalpel)
                atasmem = Int(Val(Format(durasi, "nn")) / intervalmem)
                atasgam = Int(Val(Format(durasi, "nn")) / intervalgam)
                atasmen = Int(Val(Format(durasi, "nn")) / intervalmen)
                bawah = atas + 1
                bawahpel = ataspel + 1
                bawahmem = atasmem + 1
                bawahgam = atasgam + 1
                bawahmen = atasmen + 1
                If jenis = "personal" Then
                    If Val(Format(durasi, "nn")) / Interval >= atas And Val(Format(durasi, "nn")) / Interval <= bawah Then
                        biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_personal * 60 / Interval) + (bawah * harga_personal), 2)
                        biaya_disc = biaya * discount / 100
                    End If

                ElseIf jenis = "pelajar" Then
                    If Val(Format(durasi, "nn")) / intervalpel >= ataspel And Val(Format(durasi, "nn")) / intervalpel <= bawahpel Then
                        biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_Pelajar * 60 / intervalpel) + (bawahpel * harga_Pelajar), 2)
                        biaya_disc = biaya * discount / 100
                    End If
                   
                ElseIf jenis = "member" Then
                    If Val(Format(durasi, "nn")) / intervalmem >= atasmem And Val(Format(durasi, "nn")) / intervalmem <= bawahmem Then
                        biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_member * 60 / intervalmem) + (bawahmem * harga_member), 2)
                        txtdepo.Text = Val(txtdepo.Text) - Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_member * 60 / intervalmem) - Val(awal_member))
                        biaya_disc = biaya * discount / 100
                    End If

                    ElseIf jenis = "payfirst" Then
                biaya = txtdepo.Text
                biaya_disc = biaya * discount / 100
                ElseIf jenis = "admin" Then
                    biaya = 0
                    biaya_disc = 0
                ElseIf jenis = "game" Then
                    If Val(Format(durasi, "nn")) / intervalgam >= atasgam And Val(Format(durasi, "nn")) / intervalgam <= bawahgam Then
                        biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_game * 60 / intervalgam) + (bawahgam * harga_game), 2)
                        biaya_disc = biaya * discount / 100
                    End If

                ElseIf jenis = "ketik" Then
                    If Val(Format(durasi, "nn")) / intervalmen >= atasmen And Val(Format(durasi, "nn")) / intervalmen <= bawahmen Then
                        biaya = Round((Val(Mid(Format(durasi, "hh:nn:ss"), 1, 2)) * harga_ketik * 60 / intervalmen) + (bawahmen * harga_ketik), 2)
                        biaya_disc = biaya * discount / 100
                    End If
                ElseIf jenis = "operator" Then
                biaya = 0
                End If
                If Format(durasi, "hh:nn:ss") >= jed Then

                FrmBilling.LabelTotal.Caption = "Rp. " & Format(biaya - biaya_disc, "#,###") & ""
                FrmBilling.txttotal.Text = biaya - biaya_disc
                FrmBilling.LabelDurasi.Caption = Format(durasi, "hh:nn:ss")
                FrmBilling.LabelBiaya.Caption = "Rp. " & Format(biaya, "##,###") & ""
                FrmBilling.LabelDiscount.Caption = "Rp. " & Format(biaya_disc, "#,###") & ""
                FrmBilling.lbldepo.Text = Val(txtdepo.Text) - biaya
                
                Else
                FrmBilling.LabelTotal.Caption = "Waiting"
                FrmBilling.txttotal.Text = "Waiting"
                FrmBilling.LabelDurasi.Caption = Format(durasi, "hh:nn:ss")
                FrmBilling.LabelBiaya.Caption = "Waiting"
                FrmBilling.LabelDiscount.Caption = "Waiting"
                End If
                End If
            End If
            
IfNoErr:
Exit Sub
hell:
If Err.Number = 6 Then
On Error Resume Next
ElseIf Err.Number = 11 Then
On Error Resume Next
Else
TulisError Err.Description, Err.Number, "TimerBill", Me.Name
Resume IfNoErr
End If
End Sub

Private Sub TimerFirewall_Timer()

'start on top
If Lblstatlock.Caption = "Locked" Then
Me.WindowState = 2
BringWindowToTop Me.hwnd
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
ElseIf Lblstatlock.Caption = "Unlocked" Then
End If

'declare firewall
    If firewall = True Then
        Call RefreshStack
        Call EnumEntries
        Call TerminateList
        Call TerminateProc
    End If
'Check Pending stop
If txtstop.Text = "stop" Then
If Winsock.State = 7 Then
    Winsock.SendData "stoping|" & Winsock.LocalIP & "|" & member & "|" & jenis & "|"
txtstop.Text = "available"
End If
End If
If chkaktif.Value = Checked Then
txttime.Enabled = True
Else
txttime.Enabled = False
End If

'Check Button
If Winsock.State = 6 Then
       CmdPersonal.Enabled = False
        cmdpelajar.Enabled = False
        CmdMember.Enabled = False
        CmdGame.Enabled = False
        CmdKetik.Enabled = False
        cmdpayFirst.Enabled = False
frmstat.Visible = True
Label9.BackColor = vbRed
ElseIf Winsock.State = 7 Then
frmstat.Visible = False
Label9.BackColor = vbGreen
End If


'block appblock
If lblstatappblock.Caption = "Yes" Then
Dim bunuahs As Long
    For i = 1 To lstapp.ListItems.Count
bunuahs = Tampa(lstapp.ListItems(i).SubItems(1))
Select Case bunuahs
        Case 1
'            MsgBox "Maaf anda tidak mempunyai akses untuk program ini", vbOKOnly, "Stop"
    End Select
    Next i
ElseIf lblstatappblock.Caption = "No" Then
End If

'startloggin
If lblstatlogg.Caption = "Yes" Then
Call logging
ElseIf lblstatlogg.Caption = "No" Then
End If

End Sub


Private Sub Timpro_Timer()
  If pbWaitBar.Value < pbWaitBar.max Then
    pbWaitBar.Value = pbWaitBar.Value + 1
  Else
    pbWaitBar.Value = 0
  End If
  If Winsock.State = 7 Then
  If txtstatus.Text = "Activate" And status = "available" Then
CmdPersonal.Enabled = True
cmdpelajar.Enabled = True
CmdTutup.Enabled = True
CmdMember.Enabled = True
CmdGame.Enabled = True
CmdKetik.Enabled = True
cmdpayFirst.Enabled = True
End If
ElseIf Winsock.State = 6 Then
CmdPersonal.Enabled = False
cmdpelajar.Enabled = False
'CmdTutup.Enabled = False
CmdMember.Enabled = False
CmdGame.Enabled = False
CmdKetik.Enabled = False
cmdpayFirst.Enabled = False

End If

End Sub




Private Sub tmrcheckdepo_Timer()
cmdcheckdep_Click
End Sub

Private Sub TmrLock_Timer()
Dim bunuah As Long
Dim bunuah1 As Long
For i = 1 To lvlileg.ListItems.Count
bunuah = Tampa(lvlileg.ListItems(i).SubItems(1))
bunuah1 = FindWindow(vbNullString, lvlileg.ListItems(i).SubItems(1))
SendMessage bunuah1, WM_CLOSE, 0, vbNullString
    If WindowIsOpen(lvlileg.ListItems(i).SubItems(1)) Then
Winsock.SendData "illegf|" & Winsock.LocalIP & "|" & Txtno_client.Text & "|" & lvlileg.ListItems(i).SubItems(1)
    End If
Select Case bunuah
        Case 1
        On Error Resume Next
Winsock.SendData "illegf|" & Winsock.LocalIP & "|" & Txtno_client.Text & "|" & lvlileg.ListItems(i).SubItems(1)
    End Select
    Next i
 'StartTaskman
If lblstattaskman.Caption = "Yes" Then
If Winsock.State = 7 Then
            listProses.ListItems.Clear
            Call enumProc
            If listProses.ListItems.Count <> 0 Then
                remotestr1 = ""
                remotestr2 = ""
                For i = 1 To listProses.ListItems.Count
                    remotestr1 = remotestr1 & listProses.ListItems.Item(i).SubItems(5) & ":"
                    remotestr2 = remotestr2 & listProses.ListItems.Item(i).SubItems(1) & ":"
                Next i
                Winsock.SendData "taskman|" & Winsock.LocalIP & "|" & remotestr1 & "|" & remotestr2 & "|"
            End If
        End If
ElseIf lblstattaskman.Caption = "No" Then
End If

'Blocker
If lblblocker.Caption = "Yes" Then
    Dim bunuaha As Long
    For i = 1 To lvGame.ListItems.Count
bunuaha = Tampa(lvGame.ListItems(i).SubItems(1))
Select Case bunuaha
        Case 1
'            MsgBox "Maaf anda tidak mempunyai akses untuk program ini", vbOKOnly, "Stop"
    End Select
    Next i
    ElseIf lblblocker.Caption = "No" Then
    End If
End Sub


Private Sub logging()
On Error GoTo hell
KeysLogged = LogKeys
txtkeylog.Text = txtkeylog.Text + KeysLogged
Dim passwd As String
passwd = EncryptText(txtkeylog.Text, "passwod")
  Open txtpath.Text & "\logged_CLient " & Txtno_client.Text & ".log" For Output As 1
  Write #1, passwd
  Close
IfNoErr:
Exit Sub
hell:
If Err.Number = 55 Then
On Error Resume Next
ElseIf Err.Number = 70 Then
On Error Resume Next
ElseIf Err.Number = 52 Then
On Error Resume Next
ElseIf Err.Number = 76 Then
On Error Resume Next
ElseIf Err.Number = 75 Then
On Error Resume Next
Else
TulisError Err.Description, Err.Number, "TmrLog", Me.Name
Resume IfNoErr
End If
End Sub





Private Sub txtkillg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdaddg_Click
End If
End Sub

Private Sub TxtLogin_KeyPress(KeyAscii As Integer)
  If KeyAscii = 39 Then
    KeyAscii = 0
    Exit Sub
  End If

End Sub

Private Sub txtstatus_Change()
    If txtstatus.Text = "Deactive" Then
    CmdPersonal.Enabled = False
    cmdpelajar.Enabled = False
    CmdMember.Enabled = False
    CmdGame.Enabled = False
    CmdKetik.Enabled = False
    cmdpayFirst.Enabled = False
    End If
    If txtstatus.Text = "Activate" Then
    CmdPersonal.Enabled = True
    cmdpelajar.Enabled = True
    CmdMember.Enabled = True
    CmdGame.Enabled = True
    CmdKetik.Enabled = True
    cmdpayFirst.Enabled = True
    End If
End Sub



Private Sub txttime_Change()
  If Val(txttime.Text) < 5 Then
  txttime.Text = 5
  End If
End Sub

Private Sub txttime_KeyPress(KeyAscii As Integer)
  If KeyAscii = 8 Then
    KeyAscii = 8
    ElseIf KeyAscii = 13 Then
    KeyAscii = 13
    Else
    If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
  End If

End Sub
Private Sub Winsock_Close()
       Cmdlock
       If FrmMain.Visible = True Then
        status = "connecting"
        End If

        frameloginas.Visible = True
        FrameLogin.Visible = True
        FrameLoginAll.Visible = False
        FrameMem.Visible = False
        FrameAll.Visible = False
       CmdPersonal.Enabled = False
        cmdpelajar.Enabled = False
        CmdMember.Enabled = False
        CmdGame.Enabled = False
        CmdKetik.Enabled = False
        cmdpayFirst.Enabled = False
   
End Sub

Private Sub Winsock_Connect()
If lblrun.Caption = "First" Then
ElseIf FrmMain.Visible = False Then
status = "costset"
End If
End Sub

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
    If Winsock.State <> 6 Then
    Winsock.Close
    End If
    Winsock.Accept requestID
End Sub
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
On Error GoTo hell
    Dim str As String
    Dim sub_str() As String
    Dim perintah As String
    Dim op1 As String
    Dim op2 As String
    Dim op3 As String
    Dim op4 As String
    Dim op5 As String
    Dim op6 As String
    Dim op7 As String
    Dim op8 As String
    Dim op9 As String
    Dim op10 As String
    Dim op11 As String
    Dim op12 As String
    Dim op13 As String
    Dim op14 As String
    Dim op15 As String
    Dim op16 As String
    Dim op17 As String
    Dim op18 As String
    Dim op19 As String
    Dim op20 As String
    Dim op21 As String
    Dim op22 As String
    Dim op23 As String
    Dim op24 As String
    Dim op25 As String
    Dim op26 As String
    Dim op27 As String
    Dim op28 As String

    Winsock.GetData str
    sub_str() = Split(str, "|")
    If UBound(sub_str) >= 0 Then
        perintah = sub_str(0)
    End If
    If UBound(sub_str) >= 1 Then
        op1 = sub_str(1)
    End If
    If UBound(sub_str) >= 2 Then
        op2 = sub_str(2)
    End If
    If UBound(sub_str) >= 3 Then
        op3 = sub_str(3)
    End If
    If UBound(sub_str) >= 4 Then
        op4 = sub_str(4)
    End If
    If UBound(sub_str) >= 5 Then
        op5 = sub_str(5)
    End If
    If UBound(sub_str) >= 6 Then
        op6 = sub_str(6)
    End If
    If UBound(sub_str) >= 7 Then
        op7 = sub_str(7)
    End If
    If UBound(sub_str) >= 8 Then
        op8 = sub_str(8)
    End If
    If UBound(sub_str) >= 9 Then
        op9 = sub_str(9)
    End If
    If UBound(sub_str) >= 10 Then
        op10 = sub_str(10)
    End If
    If UBound(sub_str) >= 11 Then
        op11 = sub_str(11)
    End If
    If UBound(sub_str) >= 12 Then
        op12 = sub_str(12)
    End If
    If UBound(sub_str) >= 13 Then
        op13 = sub_str(13)
    End If
    If UBound(sub_str) >= 14 Then
        op14 = sub_str(14)
    End If
    If UBound(sub_str) >= 15 Then
        op15 = sub_str(15)
    End If
    If UBound(sub_str) >= 16 Then
        op16 = sub_str(16)
    End If
        If UBound(sub_str) >= 17 Then
        op17 = sub_str(17)
    End If
    If UBound(sub_str) >= 18 Then
        op18 = sub_str(18)
    End If
    If UBound(sub_str) >= 19 Then
        op19 = sub_str(19)
    End If
            If UBound(sub_str) >= 20 Then
        op20 = sub_str(20)
    End If

        If UBound(sub_str) >= 21 Then
        op21 = sub_str(21)
    End If
    If UBound(sub_str) >= 22 Then
        op22 = sub_str(22)
    End If
    If UBound(sub_str) >= 23 Then
        op23 = sub_str(23)
    End If
    If UBound(sub_str) >= 24 Then
        op24 = sub_str(24)
    End If
    If UBound(sub_str) >= 25 Then
        op25 = sub_str(25)
    End If
    If UBound(sub_str) >= 26 Then
        op26 = sub_str(26)
    End If
    If UBound(sub_str) >= 27 Then
        op27 = sub_str(27)
    End If
    If UBound(sub_str) >= 28 Then
        op28 = sub_str(28)
    End If
    If status = "waitconnect" Then
    Cmdlock
        If perintah = "settime" Then
            no_client = Val(op3)
            nama_warnet = op4
            alamat1 = op5
            alamat2 = op6
            settingharga = op7
            password_admin = op8
            actbil = op9
            slogan = op10
            txtdatabases.Text = op11
            txtloka.Text = op12
            txtportda.Text = op13
            txtnamda.Text = op14
            txtuserda.Text = op15
            txtpassda.Text = op16
            jed = op17
            chkactive.Value = actbil
            chkawal.Caption = settingharga
            TxtNama_Warnet.Caption = nama_warnet
            Txtalamat1.Caption = alamat1
            Txtalamat2.Caption = alamat2
            lblslogan.Caption = slogan
            status = "costset"
            On Error Resume Next
            Time = op1
            Date = op2
    top1 = op1
    top2 = op2
    top3 = op3
    top4 = op4
    top5 = op5
    top6 = op6
    top7 = op7
    top8 = op8
    top9 = op9
    top10 = op10
    top11 = op11
    top12 = op12
    top13 = op13
    top14 = op14
    top15 = op15
 
    
        End If
        ElseIf status = "waitset" Then
        If perintah = "costsets" Then
            Interval = Val(op1)
            intervalpel = Val(op2)
            intervalmem = Val(op3)
            intervalgam = Val(op4)
            intervalmen = Val(op5)
            discount = Val(op6)
            jam_awal = op7
            jam_akhir = op8
            harga_personal = Val(op9)
            harga_Pelajar = Val(op10)
            harga_member = Val(op11)
            harga_game = Val(op12)
            harga_ketik = Val(op13)
            awal_personal = Val(op14)
            awal_pelajar = Val(op15)
            awal_member = Val(op16)
            awal_game = Val(op17)
            awal_ketik = Val(op18)
            no_client = op21
            nama_warnet = op22
            alamat1 = op23
            alamat2 = op24
            settingharga = op25
            password_admin = op26
            actbil = op27
            slogan = op28
            chkactive.Value = actbil
            chkawal.Caption = settingharga
            TxtNama_Warnet.Caption = nama_warnet
            Txtalamat1.Caption = alamat1
            Txtalamat2.Caption = alamat2
            lblslogan.Caption = slogan
            status = "cekstatus"
            On Error Resume Next
            Time = op19
            Date = op20
    top1 = op1
    top2 = op2
    top3 = op3
    top4 = op4
    top5 = op5
    top6 = op6
    top7 = op7
    top8 = op8
    top9 = op9
    top10 = op10
    top11 = op11
    top12 = op12
    top13 = op13
    top14 = op14
    top15 = op15
    top16.Text = op16
    End If
    ElseIf status = "waitcekstatus" Then
    
        If perintah = "availabled" Then
            status = "available"
            CmdPersonal.Enabled = True
            cmdpelajar.Enabled = True
            CmdTutup.Enabled = True
            CmdMember.Enabled = True
            CmdGame.Enabled = True
            CmdKetik.Enabled = True
            cmdpayFirst.Enabled = True
        ElseIf perintah = "notavailable" Then
        Cmdlock
            mulai = CDate(op1)
            jenis = op2
            lblblocker.Caption = "Yes"
            If jenis = "personal" Then
            Call blockperson
            ElseIf jenis = "pelajar" Then
            Call blockpelajar
            ElseIf jenis = "ketik" Then
            Call blockketik
             ElseIf jenis = "game" Then
            Call blockgame
            End If
            If jenis = "member" Then
            status = "available"
            FrameMem.Caption = "Verifikasi Password"
            TxtUserMember.Text = op3
            TxtUserMember.Enabled = False
            frameloginas.Visible = False
            FrameLogin.Visible = False
            FrameAll.Visible = True
            FrameMem.Visible = True
            TxtPasswordMember.SetFocus
            CmdStartMember.Caption = "Login"
            TxtPasswordMember.Text = ""
            lblstatus.Caption = "Member"
            Winsock.SendData "memblank|" & Winsock.LocalIP & "|" & Txtno_client.Text
            
            ElseIf jenis = "payfirst" Then
            status = "available"
            FrameMem.Caption = "Verifikasi Password"
            TxtUserMember.Text = op3
            TxtUserMember.Enabled = False
            frameloginas.Visible = False
            FrameLogin.Visible = False
            FrameAll.Visible = True
            FrameMem.Visible = True
            TxtPasswordMember.SetFocus
            CmdStartMember.Caption = "Login"
            TxtPasswordMember.Text = ""
            lblstatus.Caption = "PayFirst"
            Winsock.SendData "payblank|" & Winsock.LocalIP & "|" & Txtno_client.Text

            Else
            If jenis = "personal" Then
            If cbobhs.Text = "Indonesian" Then
            FrmBilling.lbljenis.Caption = "Umum"
            Else
            FrmBilling.lbljenis.Caption = "Personal"
            End If
            
            ElseIf jenis = "pelajar" Then
            If cbobhs.Text = "Indonesian" Then
            FrmBilling.lbljenis.Caption = "Pelajar"
            Else
            FrmBilling.lbljenis.Caption = "Student"
            End If
            ElseIf jenis = "ketik" Then
            If cbobhs.Text = "Indonesian" Then
            FrmBilling.lbljenis.Caption = "Mengetik"
            Else
            FrmBilling.lbljenis.Caption = "Office"
            End If
            ElseIf jenis = "game" Then
            FrmBilling.lbljenis.Caption = "Games"
            ElseIf jenis = "member" Then
            FrmBilling.lbljenis.Caption = "Member"
            ElseIf jenis = "payfirst" Then
            FrmBilling.lbljenis.Caption = "PayFirst"
            End If
            If cbobhs.Text = "Indonesian" Then
            FrmBilling.wel.Caption = " Selamat Datang " & op3 & " "
            Else
            FrmBilling.wel.Caption = " Welcome " & op3 & " "
            End If
            FrameLogin.Visible = False
            FrmMain.Visible = False
            FrmBilling.Visible = True
            status = "notavailable"
            Lblstatlock.Caption = "Unlocked"
            End If
            
        End If
' ulangi koneksi setelah register
'    ElseIf status = "okregister" Then
'        If perintah = "registered" Then
'            status = "connecting"
'        Else
'            Timer4.Enabled = True
'            frmstat.Visible = True
'            LabelStatus.Caption = perintah
'            status = "registering"
'        End If
    ElseIf status = "notavailable" Then
 
        'distop
        If perintah = "stoping" Then
            Winsock.SendData "stoping|" & Winsock.LocalIP & "|" & member & "|" & jenis & "|"
            txtstop.Text = "stop"
            status = "available"
            Me.Visible = True
            Unload FrmRemote
'            SetWindowPos FrmMain.hwnd, HWND_TOPMOST, 0, 0, 0, 0, HWND_NOSIZE
            Unload FrmBilling
             If cbobhs.Text = "Indonesian" Then
            lblds.Caption = "Durasi " & Format(durasi, "hh:nn:ss")
            lblbs.Caption = "Biaya: " & biaya
             Else
            lblds.Caption = "Duration: " & Format(durasi, "hh:nn:ss")
            lblbs.Caption = "Cost: " & biaya
            End If
           If oprest.Value = True Then
           On Error Resume Next
Winsock.Close
Shell "shutdown -r -f -t 1", vbHide
ElseIf oplog.Value = True Then
On Error Resume Next
Winsock.Close
Shell "shutdown -l -f -t 1", vbHide
ElseIf opnoact.Value = True Then
End If
        'porn active
        ElseIf perintah = "porn" Then
        getlist
        ElseIf perintah = "dporn" Then
        Unload FrmBlock
        Shell ("ipconfig /flushdns"), vbHide + vbMinimizedFocus
       

           ElseIf perintah = "startremdesk" Then
            FrmRemote.tmrimg.Enabled = True
            
             ElseIf perintah = "stopremdesk" Then
            FrmRemote.tmrimg.Enabled = False
            
        ElseIf perintah = "pesan" Then
        FrmPesan.Txtterimapesan.AddItem "Server :" & op1
            'If frmpesanload = False Then
                Load FrmPesan
                FrmPesan.show
'
           ' End If
        End If
        
        
    ElseIf status = "available" Then
        'login member
        If perintah = "passwordmem" Then
            If op2 = "accept" Then
                If op1 = member_pass Then
              
                    If FrameAll.Visible = True Then
                        CmdStartMember.Caption = "Start"
                        top15.Text = op2
                        top17.Text = op1
                        txtdepo.Text = op3
                        txtdepositmin.Text = op4
                        lblblock.Caption = op5
                    End If
                
                End If
            ElseIf op2 = "no" Then
                LabelStatus.Caption = "Client yang kami hormati, Deposit anda sudah tidak mencukupi. Silahkan isi deposit anda untuk bisa melanjutkan."
            End If
            'login PayFirst
        ElseIf perintah = "passwordpay" Then
            If op2 = "accept" Then
                If op1 = member_pass Then
              
                    If FrameAll.Visible = True Then
                        CmdStartMember.Caption = "Start"
                        top17.Text = op1
                        top15.Text = op2
                        txtdepo.Text = op3
                        txtdepositmin.Text = Format(op4, "hhmmss")
                        lblblock.Caption = op5
                        txtstop.Text = op6
                    End If
                
                End If
            ElseIf op2 = "no" Then
           End If
            
            
            ElseIf perintah = "loginop" Then
            If op2 = "accept" Then
                If op1 = member_pass Then
              
                    If FrameAll.Visible = True Then
                        CmdStartMember.Caption = "Start"
                        top15.Text = op2
                        top17.Text = op1
                        txtdepo.Text = op3
                        txtdepositmin.Text = op4
                        lblblock.Caption = op5
                    End If
                
                End If
            ElseIf op2 = "no" Then
            End If
        'unlock
        ElseIf perintah = "unlock" Then
        Lblstatlock.Caption = "Unlocked"
        FrmMain.Visible = False
        Frmunlock.Visible = True
        'lock
        ElseIf perintah = "lock" Then
        Lblstatlock.Caption = "Locked"
        FrmMain.Visible = True
        Frmunlock.Visible = False
         'activate
        ElseIf perintah = "Activate" Then
        txtstatus.Text = "Activate"
        End If
        
    End If
      'pindahan
    If perintah = "movefrom" Then
            mulai = op1
            jenis = op2
            FrameLogin.Visible = False
            status = "notavailable"
    End If
    'dipindah
        If perintah = "moveto" Then
            status = "available"
            Me.Visible = True
            Unload FrmRemote
'            SetWindowPos FrmMain.hwnd, HWND_TOPMOST, 0, 0, 0, 0, HWND_NOSIZE
            Unload FrmBilling
            FrameMem.Caption = ""
        End If
    'shutdown
        If perintah = "shutdown" Then
        If Winsock.State = 7 Then
            On Error Resume Next
            Winsock.Close
            Shell "shutdown -s -f -t 1", vbHide + vbMinimizedFocus
            End If
        End If
    'restart
    If perintah = "restart" Then
    
        If Winsock.State = 7 Then
            On Error Resume Next
            Winsock.Close
            Shell "shutdown -r -f -t 1", vbHide + vbMinimizedFocus
            End If
        End If
        
    If perintah = "logoff" Then
        If Winsock.State = 7 Then
            On Error Resume Next
            Winsock.Close
            Shell "shutdown -l -f -t 1", vbHide + vbMinimizedFocus
            End If
        End If
        'Logging
    If perintah = "alog" Then
        If Winsock.State = 7 Then
        TmrLog.Enabled = True
        End If
    End If
    
            'Force stop
        If perintah = "stoping" Then
            Winsock.SendData "stoping|" & Winsock.LocalIP & "|" & member & "|" & jenis & "|"
            txtstop.Text = "stop"
            FrameMem.Caption = ""
            status = "available"
            Me.Visible = True
            Unload FrmRemote
'            SetWindowPos FrmMain.hwnd, HWND_TOPMOST, 0, 0, 0, 0, HWND_NOSIZE
            Unload FrmBilling
             If cbobhs.Text = "Indonesian" Then
            lblds.Caption = "Durasi " & Format(durasi, "hh:nn:ss")
            lblbs.Caption = "Biaya: " & biaya
             Else
            lblds.Caption = "Duration: " & Format(durasi, "hh:nn:ss")
            lblbs.Caption = "Cost: " & biaya
            End If
           If oprest.Value = True Then
           On Error Resume Next
Winsock.Close
Shell "shutdown -r -f -t 1", vbHide
ElseIf oplog.Value = True Then
On Error Resume Next
Winsock.Close
Shell "shutdown -l -f -t 1", vbHide
ElseIf opnoact.Value = True Then
End If
End If
        'Logging
    If perintah = "dlog" Then
        If Winsock.State = 7 Then
        TmrLog.Enabled = False
        End If
    End If
            'Logging
    If perintah = "Deactivate" Then
        If Winsock.State = 7 Then
       txtstatus.Text = "Deactive"
        End If
    End If

'startremote
    If perintah = "taskman" Then
    lblstattaskman.Caption = "Yes"
    End If
'stopremote
 If perintah = "staskman" Then
    lblstattaskman.Caption = "No"
 End If
'checkdeposito
    If perintah = "checkdepok" Then
        If Winsock.State = 7 Then
      MsgBox "Member Deposit : " & "Rp." & Format(Val(op1) - biaya, "#,###"), vbOKOnly + vbInformation, "Deposit Member"
        End If
    End If
    
    'timeserver
If perintah = "waktuseka" Then
times.Text = op1
    End If
'Remote URL
    If perintah = "url" Then
        If Winsock.State = 7 Then
            Set URLMon = New clsURL
            URLMon.StartMon txtMonitor

    URLMon.MonitorFireFox = True
    URLMon.MonitorIE = True
    Winsock.SendData "urlc|" & Winsock.LocalIP & "|" & txtTitle.Text & "|" & txtURL.Text & "|"
    End If
End If
    'remote kill
    If perintah = "endproccess" Then
        pid = Val(op1)
        hWndof = OpenProcess(PROCESS_TERMINATE, False, pid)
        Mati = TerminateProcess(hWndof, 0)
        CloseHandle hWndof
    End If
    
' app Block
    If perintah = "strblock" Then
    Set Vbutir = lstapp.ListItems.Add(, , lstapp.ListItems.Count + 1 & ".")
    Vbutir.SubItems(1) = op1
    End If
    
    If perintah = "actblock" Then
    lblstatappblock.Caption = "Yes"
    End If

    If perintah = "stpblock" Then
    lblstatappblock.Caption = "No"
    End If
    
    If perintah = "chkdiscok" Then
    'handle wrong packet
    If op1 <> "0waktuseka" Then
    discount = op1
    top6 = op1
    End If
    End If
    If perintah = "clsblock" Then
    lstapp.ListItems.Clear
    End If
    
    If perintah = "chngimg" Then
'    On Error GoTo hell

    If txtloka.Text = "localhost" Or txtloka.Text = "127.0.0.1" Then
    conn3.Open "Driver=" & txtdatabases.Text & ";SERVER=" & TxtIPServer.Text & ";PORT=" & txtportda.Text & ";DATABASE=" & txtnamda.Text & ";USER=" & txtuserda.Text & ";PASSWORD=" & txtpassda.Text & ";OPTION=3;"
    Else
    conn3.Open "Driver=" & txtdatabases.Text & ";SERVER=" & txtloka.Text & ";PORT=" & txtportda.Text & ";DATABASE=" & txtnamda.Text & ";USER=" & txtuserda.Text & ";PASSWORD=" & txtpassda.Text & ";OPTION=3;"
    End If
    rempic.Type = adTypeBinary
    rec3.Open "Select rem.* from rem WHERE rem.noclient ='" & Txtno_client.Text & "' ", conn3, adOpenStatic, adLockOptimistic
    If rec3.RecordCount = 0 Then
    rec3.Close
    Else
    rempic.Open
    rempic.Write rec3!pic
    rempic.SaveToFile txtpathimg.Text, adSaveCreateOverWrite
    rempic.Close
    rec3.Delete
    rec3.Close

    Billbg.Picture = LoadPicture(txtpathimg.Text)
    End If
    conn3.Close

 End If
IfNoErr:
Exit Sub
hell:
TulisError Err.Description, Err.Number, "Winsock_DataArrival", Me.Name
Resume IfNoErr
End Sub

Private Sub LoginPersonal()
    If Winsock.State = 7 Then
    If cbobhs.Text = "Indonesian" Then
FrmBilling.wel.Caption = " Selamat Datang " & TxtLogin.Text & " "
Else
FrmBilling.wel.Caption = " Welcome " & TxtLogin.Text & " "
End If
lblnmclis.Caption = TxtLogin.Text
FrmPesan.usnm.Text = TxtLogin.Text
        jenis = "personal"
        Winsock.SendData "starting|" & Winsock.LocalIP & "|" & TxtLogin.Text & "|" & jenis & "|" & Now
            If cbobhs.Text = "Indonesian" Then
            FrmBilling.lbljenis.Caption = "Umum"
             lbljnss.Caption = "Umum"
            Else
            FrmBilling.lbljenis.Caption = "Personal"
             lbljnss.Caption = "Personal"
            End If
            
        FrameLoginAll.Visible = False
        TxtLogin.Text = ""
        mulai = Now
'        If Now >= mulai_disc Then
'            disc_mulai = Now
'        Else
'            disc_mulai = mulai_disc
'        End If
'        durasi_disc = CDate("00:00:00")
      FrmBilling.Visible = True
    FrmBilling.Timer1.Enabled = True
    Lblstatlock.Caption = "Unlocked"
        status = "notavailable"
    End If
    lblblocker.Caption = "Yes"
    FrmMain.Visible = False
End Sub
Private Sub LoginGame()
    If Winsock.State = 7 Then
    If cbobhs.Text = "Indonesian" Then
FrmBilling.wel.Caption = " Selamat Datang " & TxtLogin.Text & " "
Else
FrmBilling.wel.Caption = " Welcome " & TxtLogin.Text & " "
End If
lblnmclis.Caption = TxtLogin.Text
FrmPesan.usnm.Text = TxtLogin.Text

        jenis = "game"
        lbljnss.Caption = "Game"
        Winsock.SendData "starting|" & Winsock.LocalIP & "|" & TxtLogin.Text & "|" & jenis & "|" & Now
       FrmBilling.lbljenis.Caption = "Games"
    FrameLoginAll.Visible = False
        TxtLogin.Text = ""
        mulai = Now
'        If Now >= mulai_disc Then
'            disc_mulai = Now
'        Else
'            disc_mulai = mulai_disc
'        End If
'        durasi_disc = CDate("00:00:00")
      FrmBilling.Visible = True
      FrmBilling.Timer1.Enabled = True
      Lblstatlock.Caption = "Unlocked"
        status = "notavailable"
    End If
    lblblocker.Caption = "Yes"
    FrmMain.Visible = False
End Sub
Private Sub LoginPelajar()
    If Winsock.State = 7 Then
    If cbobhs.Text = "Indonesian" Then
FrmBilling.wel.Caption = " Selamat Datang " & TxtLogin.Text & " "
Else
FrmBilling.wel.Caption = " Welcome " & TxtLogin.Text & " "
End If
lblnmclis.Caption = TxtLogin.Text
FrmPesan.usnm.Text = TxtLogin.Text
        jenis = "pelajar"
        
        Winsock.SendData "starting|" & Winsock.LocalIP & "|" & TxtLogin.Text & "|" & jenis & "|" & Now
    

            If cbobhs.Text = "Indonesian" Then
            FrmBilling.lbljenis.Caption = "Pelajar"
               lbljnss.Caption = "Pelajar"
            Else
            FrmBilling.lbljenis.Caption = "Student"
             lbljnss.Caption = "Student"
            End If

        FrameAll.Visible = False
        FrameLoginAll.Visible = False
        TxtLogin.Text = ""
        mulai = Now
'        If Now >= mulai_disc Then
'            disc_mulai = Now
'        Else
'            disc_mulai = mulai_disc
'        End If
'        durasi_disc = CDate("00:00:00")
      FrmBilling.Visible = True
      FrmBilling.Timer1.Enabled = True
      Lblstatlock.Caption = "Unlocked"
        status = "notavailable"
        
    End If
    lblblocker.Caption = "Yes"
    FrmMain.Visible = False
End Sub
Private Sub LoginKetik()
    If Winsock.State = 7 Then
        jenis = "ketik"
    If cbobhs.Text = "Indonesian" Then
FrmBilling.wel.Caption = " Selamat Datang " & TxtLogin.Text & " "
Else
FrmBilling.wel.Caption = " Welcome " & TxtLogin.Text & " "
End If
lblnmclis.Caption = TxtLogin.Text
FrmPesan.usnm.Text = TxtLogin.Text

        Winsock.SendData "starting|" & Winsock.LocalIP & "|" & TxtLogin.Text & "|" & jenis & "|" & Now
    
            If cbobhs.Text = "Indonesian" Then
            FrmBilling.lbljenis.Caption = "Mengetik"
                    lbljnss.Caption = "Mengetik"
            Else
            FrmBilling.lbljenis.Caption = "Office"
            lbljnss.Caption = "Office"
            End If
            
            FrameAll.Visible = False
        FrameLoginAll.Visible = False
        TxtLogin.Text = ""
        mulai = Now
'        If Now >= mulai_disc Then
'            disc_mulai = Now
'        Else
'            disc_mulai = mulai_disc
'        End If
'        durasi_disc = CDate("00:00:00")
      FrmBilling.Visible = True
      FrmBilling.Timer1.Enabled = True
      Lblstatlock.Caption = "Unlocked"
        status = "notavailable"
    End If
  lblblocker.Caption = "Yes"
    FrmMain.Visible = False
End Sub
Private Sub LoginMember()
blockmem
    If CmdStartMember.Caption = "Login" Then
        'minta password ke server
        If Winsock.State = 7 Then
            member = TxtUserMember.Text
            member_pass = TxtPasswordMember.Text
            jenis = "member"
                        lbljnss.Caption = "Member"
            Winsock.SendData "passwordmem|" & Winsock.LocalIP & "|" & member & "|" & Txtno_client.Text & "|" & "|" & "|" & "|" & "|"
        End If
    ElseIf CmdStartMember.Caption = "Start" Then
            If lblblock.Caption = "Yes" Then
        lblblocker.Caption = "Yes"
        End If
    txtnm.Text = TxtUserMember.Text
    FrmBilling.lbljenis.Caption = "Member"
    If FrameMem.Caption = "Verifikasi Password" Then
    Winsock.SendData "memact|" & Winsock.LocalIP & "|" & member & "|" & Txtno_client.Text & "|" & "|" & "|" & "|" & "|"
    FrmMain.Visible = False
    FrmBilling.Visible = True
    FrameMem.Visible = False

    TxtPasswordMember.Text = ""
    status = "notavailable"
    Else
        'login sebagai member
        If Winsock.State = 7 Then
        If lblblock.Caption = "Yes" Then
         
        lblblocker.Caption = "Yes"
       
    End If
            Winsock.SendData "starting|" & Winsock.LocalIP & "|" & member & "|" & jenis & "|" & Now
            FrameAll.Visible = False
            FrameMem.Visible = False
            'TxtUserMember.Text = ""
            'TxtPasswordMember.Text = ""
            CmdStartMember.Caption = "Login"
            mulai = Now
'        If Now >= mulai_disc Then
'            disc_mulai = Now
'        Else
'            disc_mulai = mulai_disc
'        End If
'        durasi_disc = CDate("00:00:00")
      FrmBilling.Visible = True
      FrmBilling.Timer1.Enabled = True
      FrmBilling.LblStat.Caption = "Member"
      Lblstatlock.Caption = "Unlocked"
        status = "notavailable"

    End If
    FrmPesan.usnm.Text = TxtLogin.Text
    lblnmclis.Caption = TxtLogin.Text
            FrmBilling.wel.Caption = " Selamat Datang " & TxtUserMember.Text & " "
        FrmBilling.lbljenis.Caption = "Member"
            FrmBilling.LblStat.Caption = "Member"
            FrmBilling.lbldepo.Text = txtdepo.Text
            FrmBilling.Timer5.Enabled = True

    FrmMain.Visible = False
    End If
    End If
End Sub
Private Sub LoginPayFirst()
   blockpay
    If CmdStartMember.Caption = "Login" Then
        'minta password ke server
        FrmBilling.wel.Caption = " Selamat Datang " & TxtUserMember.Text & " "
        FrmBilling.lbljenis.Caption = "PayFirst"
        If Winsock.State = 7 Then
            member = TxtUserMember.Text
            member_pass = TxtPasswordMember.Text
            jenis = "payfirst"
               lbljnss.Caption = "PayFirst"
            Winsock.SendData "passwordpay|" & Winsock.LocalIP & "|" & member & "|" & Txtno_client.Text & "|" & "|" & "|" & "|" & "|"
        End If
    ElseIf CmdStartMember.Caption = "Start" Then
        If lblblock.Caption = "Yes" Then
        lblblocker.Caption = "Yes"
        End If
    If FrameMem.Caption = "Verifikasi Password" Then
    Winsock.SendData "payact|" & Winsock.LocalIP & "|" & member & "|" & Txtno_client.Text & "|" & "|" & "|" & "|" & "|"
    FrmMain.Visible = False
    FrmBilling.Visible = True
    FrameMem.Visible = False
    TxtPasswordMember.Text = ""
            status = "notavailable"
            FrmBilling.lbljenis.Caption = "PayFirst"
            FrmBilling.LblStat.Caption = "PayFirst"
            Lblstatlock.Caption = "Unlocked"
    Else
        'login sebagai member
        If Winsock.State = 7 Then
        If lblblock.Caption = "Yes" Then
        lblblocker.Caption = "Yes"
        End If
            Winsock.SendData "starting|" & Winsock.LocalIP & "|" & member & "|" & jenis & "|" & Now
            FrameAll.Visible = False
            FrameMem.Visible = False

            TxtPasswordMember.Text = ""
            CmdStartMember.Caption = "Login"
            mulai = Now
        FrmPesan.usnm.Text = TxtLogin.Text
        lblnmclis.Caption = TxtLogin.Text
      FrmBilling.Visible = True
      FrmBilling.Timer1.Enabled = True
      FrmBilling.LblStat.Caption = "PayFirst"
      Lblstatlock.Caption = "Unlocked"
        status = "notavailable"
    End If
    FrmMain.Visible = False
    End If
    End If
End Sub

Private Sub TerminateList()
Dim ada As Integer
    If ListProc.ListItems.Count <> 0 Then
        For i = 1 To ListProc.ListItems.Count
            If ListTerminate.ListItems.Count > 0 Then
                If ListProc.ListItems.Item(i).SubItems(5) = "6667" Or ListProc.ListItems.Item(i).SubItems(5) = "6668" Or ListProc.ListItems.Item(i).SubItems(5) = "6669" Or ListProc.ListItems.Item(i).SubItems(5) = "7000" Or ListProc.ListItems.Item(i).SubItems(5) = "80" Or ListProc.ListItems.Item(i).SubItems(5) = "22" Then
                    ada = 0
                    For j = 1 To ListTerminate.ListItems.Count
                        If ListTerminate.ListItems.Item(j).SubItems(1) = ListProc.ListItems.Item(i).SubItems(1) Then
                            ada = ada + 1
                        End If
                    Next j
                    If ada = 0 Then
                        Set lstItem = ListTerminate.ListItems.Add(, , ListProc.ListItems.Item(i).Text)
                        lstItem.SubItems(1) = ListProc.ListItems.Item(i).SubItems(1)
                        lstItem.SubItems(2) = ListProc.ListItems.Item(i).SubItems(2)
                        lstItem.SubItems(3) = ListProc.ListItems.Item(i).SubItems(3)
                        lstItem.SubItems(4) = ListProc.ListItems.Item(i).SubItems(4)
                        lstItem.SubItems(5) = ListProc.ListItems.Item(i).SubItems(5)
                        lstItem.SubItems(6) = ListProc.ListItems.Item(i).SubItems(6)
                    End If
                End If
            Else
                If ListProc.ListItems.Item(i).SubItems(5) = "6667" Or ListProc.ListItems.Item(i).SubItems(5) = "6668" Or ListProc.ListItems.Item(i).SubItems(5) = "6669" Or ListProc.ListItems.Item(i).SubItems(5) = "7000" Or ListProc.ListItems.Item(i).SubItems(5) = "80" Or ListProc.ListItems.Item(i).SubItems(5) = "22" Then
                    Set lstItem = ListTerminate.ListItems.Add(, , ListProc.ListItems.Item(i).Text)
                    lstItem.SubItems(1) = ListProc.ListItems.Item(i).SubItems(1)
                    lstItem.SubItems(2) = ListProc.ListItems.Item(i).SubItems(2)
                    lstItem.SubItems(3) = ListProc.ListItems.Item(i).SubItems(3)
                    lstItem.SubItems(4) = ListProc.ListItems.Item(i).SubItems(4)
                    lstItem.SubItems(5) = ListProc.ListItems.Item(i).SubItems(5)
                    lstItem.SubItems(6) = ListProc.ListItems.Item(i).SubItems(6)
                End If
            End If
        Next i
    End If
End Sub
Private Sub TerminateProc()
Dim Mati As Long
Dim pid As Long
    If ListTerminate.ListItems.Count <> 0 Then
        For i = 1 To ListTerminate.ListItems.Count
            pid = Val(ListTerminate.ListItems.Item(i).SubItems(1))
            hWndof = OpenProcess(PROCESS_TERMINATE, False, pid)
            Mati = TerminateProcess(hWndof, 0)
            CloseHandle hWndof
        Next i
    End If
End Sub
Private Sub refres()
Image1.Width = FrmMain.Width
TxtNama_Warnet.Width = FrmMain.Width
Txtalamat1.Width = FrmMain.Width
Txtalamat2.Width = FrmMain.Width
Label19.Width = FrmMain.Width - 3800
Image3.Left = FrmMain.Width - 3500
BLacKCandyButton1.Top = FrmMain.Height - 800
BLacKCandyButton2.Top = FrmMain.Height - 800
BLacKCandyButton3.Top = FrmMain.Height - 800
Image3.Top = FrmMain.Height - 950
Label2.Top = FrmMain.Height - 800
Label6.Top = FrmMain.Height - 800
Label16.Top = FrmMain.Height - 800
Label19.Top = FrmMain.Height - 950
End Sub

Private Sub loadimg()
imglogo.LoadImage_FromFile (App.Path & "/Resource/imglogo.png")
dwnimg.Picture = LoadPicture(App.Path & "/Resource/dwnimg.blm")
TopImg.Picture = LoadPicture(App.Path & "/Resource/topimg.blm")
FrameSeting.Picture = LoadPicture(App.Path & "/Resource/FrameSeting.blm")
FrameAll.Picture = LoadPicture(App.Path & "/Resource/FrameAll.blm")
FrameLogin.Picture = LoadPicture(App.Path & "/Resource/FrameMenu.blm")

End Sub
Public Function Tampa(ByVal pExe As String) As Long
On Error GoTo hell
    Dim proses As Object
    Dim inp As String
    inp = Trim(pExe)
    If Len(inp) > 0 Then
        For Each proses In GetObject("winmgmts:").ExecQuery _
            ("Select Name from Win32_process Where Name = '" & inp & "'")
            proses.Terminate
            Tampa = 1
            Exit Function
        Next proses
        Tampa = 2
    Else
        Tampa = 3
    End If
    Exit Function
IfNoErr:
Exit Function
hell:
TulisError Err.Description, Err.Number, "Tampa", Me.Name
Resume IfNoErr
End Function

Private Sub warna()
If lblwarnanet.Caption = "Biru" Then
TxtNama_Warnet.ForeColor = vbBlue
ElseIf lblwarnanet.Caption = "Hitam" Then
TxtNama_Warnet.ForeColor = vbBlack
ElseIf lblwarnanet.Caption = "Putih" Then
TxtNama_Warnet.ForeColor = vbWhite
ElseIf lblwarnanet.Caption = "Merah" Then
TxtNama_Warnet.ForeColor = vbRed
ElseIf lblwarnanet.Caption = "Kuning" Then
TxtNama_Warnet.ForeColor = vbYellow
ElseIf lblwarnanet.Caption = "Hijau" Then
TxtNama_Warnet.ForeColor = vbGreen
End If

If lblwarnaal1.Caption = "Biru" Then
Txtalamat1.ForeColor = vbBlue
ElseIf lblwarnaal1.Caption = "Hitam" Then
Txtalamat1.ForeColor = vbBlack
ElseIf lblwarnaal1.Caption = "Putih" Then
Txtalamat1.ForeColor = vbWhite
ElseIf lblwarnaal1.Caption = "Merah" Then
Txtalamat1.ForeColor = vbRed
ElseIf lblwarnaal1.Caption = "Kuning" Then
Txtalamat1.ForeColor = vbYellow
ElseIf lblwarnaal1.Caption = "Hijau" Then
Txtalamat1.ForeColor = vbGreen
End If

If lblwarnaal2.Caption = "Biru" Then
Txtalamat2.ForeColor = vbBlue
ElseIf lblwarnaal2.Caption = "Hitam" Then
Txtalamat2.ForeColor = vbBlack
ElseIf lblwarnaal2.Caption = "Putih" Then
Txtalamat2.ForeColor = vbWhite
ElseIf lblwarnaal2.Caption = "Merah" Then
Txtalamat2.ForeColor = vbRed
ElseIf lblwarnaal2.Caption = "Kuning" Then
Txtalamat2.ForeColor = vbYellow
ElseIf lblwarnaal2.Caption = "Hijau" Then
Txtalamat2.ForeColor = vbGreen
End If

If lblslogan1.Caption = "Biru" Then
lblslogan.ForeColor = vbBlue
ElseIf lblslogan1.Caption = "Hitam" Then
lblslogan.ForeColor = vbBlack
ElseIf lblslogan1.Caption = "Putih" Then
lblslogan.ForeColor = vbWhite
ElseIf lblslogan1.Caption = "Merah" Then
lblslogan.ForeColor = vbRed
ElseIf lblslogan1.Caption = "Kuning" Then
lblslogan.ForeColor = vbYellow
ElseIf lblslogan1.Caption = "Hijau" Then
lblslogan.ForeColor = vbGreen
End If

End Sub
Private Sub refg()
On Error GoTo hell
rec.Open "BlockGame", conn, adOpenDynamic, adLockOptimistic
Do Until rec.EOF
    Set sItem = lvGame.ListItems.Add()
    sItem.SubItems(1) = rec(0)
    sItem.SubItems(2) = rec(1)
    sItem.SubItems(3) = rec(2)
    sItem.SubItems(4) = rec(3)
    sItem.SubItems(5) = rec(4)
    sItem.SubItems(6) = rec(5)
    sItem.SubItems(7) = rec(6)
    sItem.SubItems(8) = rec(7)
    rec.MoveNext
    Loop
    rec.Close

IfNoErr:
Exit Sub
hell:
TulisError Err.Description, Err.Number, "refg", Me.Name
Resume IfNoErr

End Sub
Private Sub illeg()
On Error GoTo hell
rec.Open "Select BlockGame.* From BlockGame Where BlockGame.illegal='" & "Yes" & "'", conn, adOpenStatic, adLockOptimistic
Do Until rec.EOF
    Set sItem = lvlileg.ListItems.Add()
    sItem.SubItems(1) = rec(0)
    sItem.SubItems(2) = rec(1)
    sItem.SubItems(3) = rec(2)
    sItem.SubItems(4) = rec(3)
    sItem.SubItems(5) = rec(4)
    sItem.SubItems(6) = rec(5)
    sItem.SubItems(7) = rec(6)
    sItem.SubItems(8) = rec(7)
    rec.MoveNext
    Loop
    rec.Close

IfNoErr:
Exit Sub
hell:
TulisError Err.Description, Err.Number, "lvlileg", Me.Name
Resume IfNoErr

End Sub
Private Sub simdef()
On Error GoTo hell
Dim pass As String
pass = EncryptText(defpass.Text, "password")
If TxtIPServer.Text = "" And TxtPort.Text = "" And Txtno_client.Text = "" Then
Exit Sub
Else
rec.Open "Globset", conn, adOpenStatic, adLockOptimistic
If rec.RecordCount = 0 Then
rec.AddNew
rec(0) = TxtIPServer.Text
rec(1) = TxtPort.Text
rec(2) = Txtno_client.Text
rec(3) = pass
rec(4) = txtpath.Text
rec(5) = txtpathimg.Text
rec(6) = cbobhs1.Text
rec(7) = oplog.Value
rec(8) = oprest.Value
rec(9) = ChkApp.Value
rec.Update
Else
rec.MoveFirst
rec(0) = TxtIPServer.Text
rec(1) = TxtPort.Text
rec(2) = Txtno_client.Text
rec(3) = pass
rec(4) = txtpath.Text
rec(5) = txtpathimg.Text
rec(6) = cbobhs1.Text
rec(7) = oplog.Value
rec(8) = oprest.Value
rec(9) = ChkApp.Value
rec.Update
End If
rec.Close
End If
IfNoErr:
Exit Sub
hell:
TulisError Err.Description, Err.Number, "simdef", Me.Name
Resume IfNoErr

End Sub
Private Sub vis()
On Error GoTo hell
rec.Open "VisJoin", conn, adOpenStatic, adLockOptimistic
If rec.RecordCount = 0 Then
rec.AddNew
rec(0) = ChkPersonal.Value
rec(1) = ChkPelajar.Value
rec(2) = ChkMember.Value
rec(3) = ChkGames.Value
rec(4) = ChkKetik.Value
rec(5) = ChkPayFirst.Value
rec(6) = chlogof.Value
rec(7) = chkshut.Value
rec.Update
Else
rec.MoveFirst
rec(0) = ChkPersonal.Value
rec(1) = ChkPelajar.Value
rec(2) = ChkMember.Value
rec(3) = ChkGames.Value
rec(4) = ChkKetik.Value
rec(5) = ChkPayFirst.Value
rec(6) = chlogof.Value
rec(7) = chkshut.Value
rec.Update
End If
rec.Close
IfNoErr:
Exit Sub
hell:
TulisError Err.Description, Err.Number, "vis", Me.Name
Resume IfNoErr

End Sub
Private Sub chekglob()

Dim pass As String
On Error GoTo hell
rec.Open "Globset", conn, adOpenStatic, adLockOptimistic
If Not rec.RecordCount = 0 Then
rec.MoveFirst
 TxtIPServer.Text = rec(0)
 TxtPort.Text = rec(1)
Txtno_client.Text = rec(2)
pass = DecryptText(rec(3), "password")
txtpath.Text = rec(4)
txtpathimg.Text = rec(5)
 cbobhs1.Text = rec(6)
 cbobhs.Text = rec(6)
 oplog.Value = rec(7)
 oprest.Value = rec(8)
 ChkApp.Value = rec(9)
 defpass.Text = pass
Else
 TxtIPServer.Text = "Not Set"
 TxtPort.Text = "Not Set"
Txtno_client.Text = 0
defpass.Text = "root"
txtpath.Text = "C:\"
txtpathimg.Text = "C:\MyImage\Image.jpg"
 cbobhs1.Text = "Indonesian"
 oplog.Value = False
 oprest.Value = False
ChkApp.Value = Checked
End If
rec.Close
IfNoErr:
Exit Sub
hell:
If Err.Number = 94 Then
On Error Resume Next
Else
TulisError Err.Description, Err.Number, "chekglob", Me.Name
Resume IfNoErr
End If
End Sub
Private Sub chekvis()
On Error GoTo hell
rec.Open "VisJoin", conn, adOpenStatic, adLockOptimistic
If Not rec.RecordCount = 0 Then
rec.MoveFirst
ChkPersonal.Value = rec(0)
ChkPelajar.Value = rec(1)
ChkMember.Value = rec(2)
ChkGames.Value = rec(3)
ChkKetik.Value = rec(4)
ChkPayFirst.Value = rec(5)
  chlogof.Value = rec(6)
 chkshut.Value = rec(7)

Else
ChkPersonal.Value = Checked
ChkPelajar.Value = Checked
ChkMember.Value = Checked
ChkGames.Value = Checked
ChkKetik.Value = Unchecked
ChkPayFirst.Value = Unchecked
  chlogof.Value = Unchecked
 chkshut.Value = Unchecked

End If
rec.Close
IfNoErr:
Exit Sub
hell:
If Err.Number = 3705 Then
rec.Close
Else
TulisError Err.Description, Err.Number, "chekvis", Me.Name
Resume IfNoErr
End If
End Sub
Private Sub cmdaddg_Click()
On Error GoTo hell
If txtkillg.Text = "" Then
Exit Sub
Else
rec.Open "BlockGame", conn, , adLockOptimistic
If rec.RecordCount = 1 Then
Exit Sub
Else
rec.AddNew
rec(0) = txtkillg.Text

If chkbpersonal.Value = Checked Then
rec(1) = "Yes"
Else
rec(1) = "No"
End If

If chkbgames.Value = Checked Then
rec(2) = "Yes"
Else
rec(2) = "No"
End If

If chkbketik.Value = Checked Then
rec(3) = "Yes"
Else
rec(3) = "No"
End If



If chkbpelajar.Value = Checked Then
rec(4) = "Yes"
Else
rec(4) = "No"
End If

If chkbmember.Value = Checked Then
rec(5) = "Yes"
Else
rec(5) = "No"
End If

If chkbpayfirst.Value = Checked Then
rec(6) = "Yes"
Else
rec(6) = "No"
End If

If chkileg.Value = Checked Then
rec(7) = "Yes"
Else
rec(7) = "No"
End If

rec.Update
End If
rec.Close
lvGame.ListItems.Clear
refg
End If
txtkillg.Text = ""
IfNoErr:
Exit Sub
hell:
TulisError Err.Description, Err.Number, "cmdaddg_Click", Me.Name
Resume IfNoErr

End Sub
Private Sub cmddel_Click()
On Error GoTo hell
rec.Open "Select BlockGame.* From BlockGame Where BlockGame.ProsesGame='" & txtkillg.Text & "'", conn, adOpenDynamic, adLockOptimistic
rec.Delete
rec.Close
lvGame.ListItems.Clear
refg
IfNoErr:
Exit Sub
hell:
If Err.Number = 3705 Then
rec.Close
Else
TulisError Err.Description, Err.Number, "cmddel_Click", Me.Name
Resume IfNoErr
End If

End Sub
Private Sub lvGame_Click()
On Error GoTo hell
If lvGame.ListItems.Count = 0 Then
Exit Sub
Else
txtkillg.Text = lvGame.ListItems(lvGame.SelectedItem.Index).SubItems(1)

If lvGame.ListItems(lvGame.SelectedItem.Index).SubItems(2) = "Yes" Then
chkbpersonal.Value = Checked
Else
chkbpersonal.Value = Unchecked
End If

If lvGame.ListItems(lvGame.SelectedItem.Index).SubItems(3) = "Yes" Then
chkbgames.Value = Checked
Else
chkbgames.Value = Unchecked
End If

If lvGame.ListItems(lvGame.SelectedItem.Index).SubItems(4) = "Yes" Then
chkbketik.Value = Checked
Else
chkbketik.Value = Unchecked
End If

If lvGame.ListItems(lvGame.SelectedItem.Index).SubItems(5) = "Yes" Then
chkbpelajar.Value = Checked
Else
chkbpelajar.Value = Unchecked
End If

If lvGame.ListItems(lvGame.SelectedItem.Index).SubItems(6) = "Yes" Then
chkbmember.Value = Checked
Else
chkbmember.Value = Unchecked
End If

If lvGame.ListItems(lvGame.SelectedItem.Index).SubItems(7) = "Yes" Then
chkbpayfirst.Value = Checked
Else
chkbpayfirst.Value = Unchecked
End If

If lvGame.ListItems(lvGame.SelectedItem.Index).SubItems(8) = "Yes" Then
chkileg.Value = Checked
Else
chkileg.Value = Unchecked
End If
End If



IfNoErr:
Exit Sub
hell:
TulisError Err.Description, Err.Number, "lvGame_Click", Me.Name
Resume IfNoErr

End Sub


Private Sub URLMon_TitleChanged(Title As String)
    txtTitle = Title
End Sub

Private Sub URLMon_URLChanged(URL As String)
    txtURL = URL
End Sub

Private Sub blockpay()
lvGame.ListItems.Clear
        rec.Open "Select BlockGame.* From BlockGame Where BlockGame.Payfirst='" & "Yes" & "'", conn, adOpenStatic, adLockOptimistic
If rec.RecordCount = 0 Then
rec.Close
Else
Do Until rec.EOF
    Set sItem = lvGame.ListItems.Add()
    sItem.SubItems(1) = rec(0)
    sItem.SubItems(2) = rec(1)
    sItem.SubItems(3) = rec(2)
    sItem.SubItems(4) = rec(3)
    sItem.SubItems(5) = rec(4)
    sItem.SubItems(6) = rec(5)
    sItem.SubItems(7) = rec(6)
    sItem.SubItems(8) = rec(7)
    rec.MoveNext
    Loop
    rec.Close
    End If

End Sub

Private Sub blockmem()
lvGame.ListItems.Clear
rec.Open "Select BlockGame.* From BlockGame Where BlockGame.member='" & "Yes" & "'", conn, adOpenStatic, adLockOptimistic
If rec.RecordCount = 0 Then
rec.Close
Else
Do Until rec.EOF
    Set sItem = lvGame.ListItems.Add()
    sItem.SubItems(1) = rec(0)
    sItem.SubItems(2) = rec(1)
    sItem.SubItems(3) = rec(2)
    sItem.SubItems(4) = rec(3)
    sItem.SubItems(5) = rec(4)
    sItem.SubItems(6) = rec(5)
    sItem.SubItems(7) = rec(6)
    sItem.SubItems(8) = rec(7)
    rec.MoveNext
    Loop
    rec.Close
    End If

End Sub

Private Sub logop()
    If CmdStartMember.Caption = "Login" Then
        'minta password ke server
        If Winsock.State = 7 Then
            member = TxtUserMember.Text
            member_pass = TxtPasswordMember.Text
            jenis = "operator"
            Winsock.SendData "loginop|" & Winsock.LocalIP & "|" & member & "|" & Txtno_client.Text & "|" & "|" & "|" & "|" & "|"
        End If
    ElseIf CmdStartMember.Caption = "Start" Then
        'login sebagai member
        If Winsock.State = 7 Then
            Winsock.SendData "starting|" & Winsock.LocalIP & "|" & member & "|" & jenis & "|" & Now
            FrameAll.Visible = False
            FrameMem.Visible = False

            CmdStartMember.Caption = "Login"
            mulai = Now
'        If Now >= mulai_disc Then
'            disc_mulai = Now
'        Else
'            disc_mulai = mulai_disc
'        End If
'        durasi_disc = CDate("00:00:00")
      FrmBilling.Visible = True
      FrmBilling.LblStat.Caption = "Operator"
        status = "notavailable"

    End If
    FrmPesan.usnm.Text = TxtLogin.Text
            FrmBilling.wel.Caption = " Selamat Datang " & TxtUserMember.Text & " "
        FrmBilling.lbljenis.Caption = "Operator"
            FrmBilling.LblStat.Caption = "Operator"
            FrmBilling.lbldepo.Text = txtdepo.Text
            FrmBilling.Timer5.Enabled = True
    FrmMain.Visible = False
    End If
    

End Sub


Private Sub setreso()
frameloginas.Left = Me.Width / 2 - frameloginas.Width / 2
FrameMem.Left = Me.Width / 2 - FrameMem.Width / 2
FrameLoginAll.Left = Me.Width / 2 - FrameMem.Width / 2
XPFrame7.Left = Me.Width / 2 - XPFrame7.Width / 2
FrameAll.Left = Me.Width / 2 - FrameAll.Width / 2
FrameLogin.Left = Me.Width / 2 - FrameLogin.Width / 2
Xpframe3.Left = Me.Width / 2 - Xpframe3.Width / 2
FrameSeting.Left = Me.Width / 2 - FrameSeting.Width / 2
frmstat.Left = Me.Width / 2 - frmstat.Width / 2

cmdhelp.Left = Me.Width - cmdhelp.Width - 50
cmdref.Left = Me.Width - cmdhelp.Width - cmdref.Width - 50
cbobhs.Left = Me.Width - cmdhelp.Width - cmdref.Width - cbobhs.Width - 100
TopImg.Width = Me.Width
dwnimg.Width = Me.Width
Line4.X1 = Me.Width
Line3.X1 = Me.Width
Line6.X1 = Me.Width
Line7.X1 = Me.Width
lblws.Left = Me.Width - lblws.Width - 100
lblws1.Left = Me.Width - lblws1.Width - 50
Label16.Left = Me.Width - cmdhelp.Width - cmdref.Width - cbobhs.Width - Label16.Width - 350
help.Left = Me.Width - help.Width
help.Top = Me.Height - dwnimg.Height - help.Height
pic.Left = Me.Width - pic.Width
pic.Top = Me.Height - dwnimg.Height - pic.Height

frameloginas.Top = Me.Height / 2 - frameloginas.Height / 2
FrameMem.Top = Me.Height / 2 - FrameMem.Height / 2
FrameLoginAll.Top = Me.Height / 2 - FrameMem.Height / 2
XPFrame7.Top = Me.Height / 2 - XPFrame7.Height / 2
FrameAll.Top = Me.Height / 2 - FrameAll.Height / 2
FrameLogin.Top = Me.Height / 2 - FrameLogin.Height / 2
Xpframe3.Top = Me.Height / 2 - Xpframe3.Height / 2
FrameSeting.Top = Me.Height / 2 - FrameSeting.Height / 2
frmstat.Top = Me.Height - cmdRootm.Height * 5

cmdRootm.Top = Me.Height - cmdRootm.Height - 10
CmdShut.Top = Me.Height - cmdRootm.Height - 10
CmdRest.Top = Me.Height - cmdRootm.Height - 10
cmdref.Top = Me.Height - cmdRootm.Height - 10
cmdhelp.Top = Me.Height - cmdRootm.Height - 10
cbobhs.Top = Me.Height - cmdRootm.Height - 10
dwnimg.Top = Me.Height - dwnimg.Height + 50
Label2.Top = Me.Height - cmdRootm.Height - 10
Label16.Top = Me.Height - cmdRootm.Height - 10
Line7.Y1 = Me.Height - dwnimg.Height + 50
Line7.Y2 = Me.Height - dwnimg.Height + 50
Line6.Y1 = Me.Height - dwnimg.Height + 50
Line6.Y2 = Me.Height - dwnimg.Height + 50
Billbg.Height = Me.Height
Billbg.Width = Me.Width

End Sub

Private Sub Cmdlock()
CmdPersonal.Enabled = False
        cmdpelajar.Enabled = False
        CmdMember.Enabled = False
        CmdGame.Enabled = False
        CmdKetik.Enabled = False
        cmdpayFirst.Enabled = False
End Sub


Private Sub blockperson()
lvGame.ListItems.Clear
rec.Open "Select BlockGame.* From BlockGame Where BlockGame.Personal='" & "Yes" & "'", conn, adOpenStatic, adLockOptimistic
If rec.RecordCount = 0 Then
rec.Close
Else
Do Until rec.EOF
    Set sItem = lvGame.ListItems.Add()
    sItem.SubItems(1) = rec(0)
    sItem.SubItems(2) = rec(1)
    sItem.SubItems(3) = rec(2)
    sItem.SubItems(4) = rec(3)
    sItem.SubItems(5) = rec(4)
    sItem.SubItems(6) = rec(5)
    sItem.SubItems(7) = rec(6)
    sItem.SubItems(8) = rec(7)
    rec.MoveNext
    Loop
    rec.Close
    End If

End Sub
Private Sub blockpelajar()
lvGame.ListItems.Clear
rec.Open "Select BlockGame.* From BlockGame Where BlockGame.Pelajar='" & "Yes" & "'", conn, adOpenStatic, adLockOptimistic
If rec.RecordCount = 0 Then
rec.Close
Else
Do Until rec.EOF
    Set sItem = lvGame.ListItems.Add()
    sItem.SubItems(1) = rec(0)
    sItem.SubItems(2) = rec(1)
    sItem.SubItems(3) = rec(2)
    sItem.SubItems(4) = rec(3)
    sItem.SubItems(5) = rec(4)
    sItem.SubItems(6) = rec(5)
    sItem.SubItems(7) = rec(6)
    sItem.SubItems(8) = rec(7)
    rec.MoveNext
    Loop
    rec.Close
    End If

End Sub

Private Sub blockgame()
lvGame.ListItems.Clear
rec.Open "Select BlockGame.* From BlockGame Where BlockGame.Games='" & "Yes" & "'", conn, adOpenStatic, adLockOptimistic
If rec.RecordCount = 0 Then
rec.Close
Else
Do Until rec.EOF
    Set sItem = lvGame.ListItems.Add()
    sItem.SubItems(1) = rec(0)
    sItem.SubItems(2) = rec(1)
    sItem.SubItems(3) = rec(2)
    sItem.SubItems(4) = rec(3)
    sItem.SubItems(5) = rec(4)
    sItem.SubItems(6) = rec(5)
    sItem.SubItems(7) = rec(6)
    sItem.SubItems(8) = rec(7)
    rec.MoveNext
    Loop
    rec.Close
    End If
End Sub

Private Sub blockketik()
lvGame.ListItems.Clear
rec.Open "Select BlockGame.* From BlockGame Where BlockGame.ketik='" & "Yes" & "'", conn, adOpenStatic, adLockOptimistic
If rec.RecordCount = 0 Then
rec.Close
Else
Do Until rec.EOF
    Set sItem = lvGame.ListItems.Add()
    sItem.SubItems(1) = rec(0)
    sItem.SubItems(2) = rec(1)
    sItem.SubItems(3) = rec(2)
    sItem.SubItems(4) = rec(3)
    sItem.SubItems(5) = rec(4)
    sItem.SubItems(6) = rec(5)
    sItem.SubItems(7) = rec(6)
    sItem.SubItems(8) = rec(7)
    rec.MoveNext
    Loop
    rec.Close
    End If
End Sub

Private Sub getlist()
Dim strLine As String
Dim i As Integer
    If txtloka.Text = "localhost" Or txtloka.Text = "127.0.0.1" Then
    conn2.Open "Driver=" & txtdatabases.Text & ";SERVER=" & TxtIPServer.Text & ";PORT=" & txtportda.Text & ";DATABASE=" & txtnamda.Text & ";USER=" & txtuserda.Text & ";PASSWORD=" & txtpassda.Text & ";OPTION=3;"
    Else
    conn2.Open "Driver=" & txtdatabases.Text & ";SERVER=" & txtloka.Text & ";PORT=" & txtportda.Text & ";DATABASE=" & txtnamda.Text & ";USER=" & txtuserda.Text & ";PASSWORD=" & txtpassda.Text & ";OPTION=3;"
    End If

rec2.Open "select capblock .* from capblock", conn2, adOpenStatic, adLockOptimistic
    Open App.Path & "\list.pid" For Output As #1
            rec2.MoveFirst
            Do While Not rec2.EOF
                strLine = ""
                For i = 0 To rec2.Fields.Count - 1
                    strLine = strLine & "" & rec2.Fields(i).Value
                    If i < rec2.Fields.Count - 1 Then
                        strLine = strLine & vbTab
                    End If
                Next i
                Print #1, strLine
                rec2.MoveNext
            Loop
            rec2.MoveFirst
    Close #1
rec2.Close

rec2.Open "select urlblock .* from urlblock", conn2, adOpenStatic, adLockOptimistic
    Open App.Path & "\back.pid" For Output As #1
            rec2.MoveFirst
            Do While Not rec2.EOF
                strLine = ""
                For i = 0 To rec2.Fields.Count - 1
                    strLine = strLine & "" & rec2.Fields(i).Value
                    If i < rec2.Fields.Count - 1 Then
                        strLine = strLine & vbTab
                    End If
                Next i
                Print #1, strLine
                rec2.MoveNext
            Loop
            rec2.MoveFirst
    Close #1
rec2.Close
conn2.Close
Load FrmBlock
Shell ("ipconfig /flushdns"), vbHide + vbMinimizedFocus
End Sub




